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Preface 


Related Publications 


This manual is to be used with the Data Language/I Disk Operating System/Virtual 
Storage (DL/I DOS/VS) Logic Manual, Volume 1, LY12-5016, and program 
listings for DL/I DOS/VvS. It contains the HIPO diagrams that illustrate the program 
logic described in Volume 1. It is intended for use by persons involved in program 
maintenance and by system programmers who are altering the program design. 


DL/I DOS/VS is a data management control system that assists the user in creating, 
accessing, and maintaining large common data bases. In conjunction with the 
Customer Information Control System (CICS/VS), DL/I DOS/VS can be used in an 
online teleprocessing environment. 


Because DL/I DOS/VS is a functional subset of the IBM Information Management 
System/Virtual Storage (IMS/VS), some specific IMS or OS terms are used in this 
manual. These terms are used to allow easy reference to the documentation of the 
related systems. 

This manual contains only ‘Section 2: Method of Operation’”’ which consists of 
HIPO diagrams that describe the DL/I modules. The diagrams include cross 
reference to labels in the program listings. 

Because Section 2 was formerly a part of Volume 1, considerable cross reference 
exists between other sections of Volume 1 and Section 2. The figure numbering 


system has been retained for Section 2 to ensure credibility of cross references 
found in Volume 1. 


DL/I DOS/VS General Information Manual, GH20-1246 

DL/I DOS/VS Application Program Reference Manual, SH12-5411 
DL/I DOS/VS Data Base Administration, SH24-5011 

DL/I DOS/VS Resource Definition and Utilities, SH24-5021 

DL/I DOS/VS Interactive Resource Definition and Utilities, SH24-5029 
DL/I DOS/VS Recovery/ Restart Guide, SH24-5030 


DL/I DOS/VS Application Programming: High Level Programming Interface, 
SH24-5009 


~DL/I DOS/VS Messages and Codes, SH12-5414 


DL/I DOS/VS Guide for New Users, SH24-5001 
DL/I DOS/VS Diagnostic Guide, SH24-5002 

DL/I DOS/VS Logic Manual, Volume 1, LY12-5016. 
For VSE and VSE/VSAM messages and return codes: 


VSE/Advanced Functions Messages, SC33-6098 


Preface iii 





iv 
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VSE/Advanced Functions Application Programming: User’s Guide, SC24-5210 
VSE / Advanced Functions Application Programming: Reference, SC24-5211 
Using VSE/VSAM Commands and Macros, SC24-5144 

VSE/VSAM Messages and Codes, SC24-5146. 


Users employing DL/I DOS/VS in an online environment should have access to the 
following CICS/VS publications: 


CICS/DOS/VS Installation and Operations Guide, SC33-0070 
CICS/VS Customization Guide, SC33-0131 


CICS/VS Performance Guide, SC33-0134 


el CS/VS Resource Definition Guide, SC33-0149 


CICS/VS Application Programmer’s Reference Manual (Macro Level), SC33-0079 


CICS/VS System/Application Design Guide, SC33-0068. 
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Section 2: Method of Operation 


This section contains HIPO (Hierarchy, plus Input, Process, Output) diagrams. 


The three areas of each HIPO diagram are, from left to right, the input area, process 
area, and output area. Read the diagrams beginning with the process area. This 
describes a function that is performed. Arrows leading from the input area show 
what, if any, input is used to perform that function. Arrows leading to the output 
area show what output, if any, is produced. 


At the bottom of each HIPO diagram is an area called ‘“‘extended descriptions.” This 
area contains comments not included in the process area of the diagram. For most 
items in the process area, extended description items with the same numbers give 
details that cannot be easily shown in diagram form or in the space allowed. 


Various forms of arrows represent different usage conventions. Also, items are often 
boxed in to show that they are related to the same function. Figure 2-1 shows the 
conventions used in the HIPO diagrams, 


Figure 2-2 is a visual table of contents with figure numbers. The figure numbers refer 
to the HIPO diagrams. 


Section 2: Method of Operation 2-1 








Z OUMNJOA ‘enueP] 9IZOT SA/SOGI/Id 7Z-Z 





Figure 2-1. Guide to Reading Method of Operation Diagrams 
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Figure 2-2. Visual Table of Contents for DL/I DOS/VS HIPO Charts 
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- Figure 2-3. Batch Initialization (Overview) 
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. Enter batch initialization. 
(See Figure 2-3.1) 


. Begin batch partition control. 
(See Figure 2-3.2) 


. Parameter scan and validation. 
(See Figure 2-3.3) 


. Begin application program control. 
(See Figure 2-3.4) 


. Utility block build request handler. 
(See Figure 2-3.5) 


. Complete application program control. 
(See Figure 2-3.6) 


To VSE 
. Block loader and relocator. 
(See Figure 2-3.7) 


. Complete control program initialization. 
(See Figure 2-3.8) 


. DL/I control card analyze routine. 
(See Figure 2-3.9) 


DLZRRCOO 


Extended Description Routine Label Extended Description Routine Label 


DLZRRAOC 


DLZPCCOO 
DLZPINIT 


ULUPRHEP 
DLZPCCO00 
DLZPINIT 
DLZCPIOO 
NXTPORT 
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Figure 2-3.1. Batch Initialization Entry (DLZRRCOO) 
INPUT PROCESS 


From 
Figure 2-3 
Step 1 


module. 


SYSIPT 





From Caller 


4. Enter common SYSLOG 
message routine. 


OLZRRCOO — Batch Initialization E.P. CSECT 


1. DLZBNUCO load address is set at 
DLZRRCOO start + X‘100’. 


2. 
3. The reserved space allows loading 


of DLZBNUCO without overlaying 
critical code in this module. 


1. Establish load address for the nucleus 


Te «2. Read parameter information. 
3. Reserve space for DLZBNUCO. 





To 


Figure 2-3 


Step 2 





To Caller 


OUTPUT 

















Figure 2-3.2. Batch Partition Control (DLZRRC10) 
INPUT 


Bik PROCESS 


Figure 2-3 
& Step 2 


Image Library 





OADTB 
DLZBNUCO ... 


oe bee 


Lo) vse cor 


partition. 





——-— > 3. Set addressibility and 





rT » 1, Load directory entries of the 
DOS/VS Core DOL/I facility modules. 


2. Load DLZBNUCO into the 





OUTPUT 


X‘100' 
(DLZBNUCO) 


DLZRRCOO vp 
(DLZRRCOO) —«(See Note) 


ee initialize the SCD and PST 
COMREG that are in the nucleus module. 
To 
Figure 2-3 
Step 3 
DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 
Extended Description Routine Labei Extended Description Routine Label 


1. The end address of phase DLZRRCOO DLZRRC10 |DLZRRC10 
is obtained from the VSE 
COMREG and saved at ENDINIT. 


Write message DLZO1 11 if a 
required module is not found 
in the VSE core image library. 


Note: DLZRRCOOvrnp is the module 
identifier. Eech DL/I module is 
identified with its full eight-byte 
module identifier in character 


format followed with a four-byte 
field identifying the module level. 
The level format is vrnp; where ‘v’ 
is the version, ‘r’ is the release, ‘n’ 
is an additional identification digit, 
and ‘p’ is the latest PTF number 
that has been applied. 





§746-XX 1 COPYRIGHT. ... 
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Figure 2-3.3 Parameter Scan and Validation (DLZRRC10) 
INPUT PROCESS. 


From 
Figure 2-3 
Step 3 


identifier. 





YF, 






ULU, DLZURGSO 





OUTPUT 


> 1. Determine the parameter 


2. Exit if the first parameter is 
ULU and the next parameter is 
a logical relationship utility. 


Skip to Step 5. 
Workarea SCD 
3. Scan parameters thru the number 
of DB buffer subpools parameter 


if there is one. 






PS 
PSTPCPSB 
PSTPCT1 





Workareg 
....DLZURGSO 
.... DLZURGPO 
scD 


SCDEXTBA 





DLZRRC10 — Batch Partition Control CSECT 


Extended Description Routine Label 


1. Write message DLZO151 if the first DLZRRAOO |DLZRRAOO 
parameter is not DLI, ULU, UDR, ULR, 
or PLU. Also write message if PLU and 
program is not DLZURGU0 or if ULR 
and program is not DLZURGLO. Except 
for padding in Step 4, PLU is treated as 
ULU in all other places. 


. Although the DB prefix resolution utility 
is a logical relationship utility, it is not 
processed with the others because it 
executes directly, not as an application 
to DL/I. 


. If a system error occurs, write one 
of the following messages: 
DLZ0191 
DLZ112I 
DLZ114I 
DLZ1151 
DLZ116I 
DLZ1171 





to eight characters. 


5, Set up utility call interface. 





> 4. Pad the dbdname or psbname ; 


To 
Figure 2-3 
Step 4 





|PSTPCPGM PSTPCPGM 
DEX 
Te 
Figure 2-3 


Step 4 





. RRCOO 


Extended Description Routine Label 


4. PSTPCPSB now contains the dbdname 
from the ULU, UDR, or ULR parameter 
card or the psbname from the DLI or 
PLU parameter card. Insert a utility DBD 
suffix (U) or insert a PSB suffix (P). 


. No control blocks are loaded for DLZRRC10} ULUSTART 
DLZURPRO, DLZURGSO or DLZURGPO 
during batch initialization. These three 
utilities issue the DLZBLKLD macro 
specifying the utility PSB and the BLDB 
call for each data set used. The ACB 
utility builds the utility PSBs they use. 
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Figure 2-3.4. Application Program Control (DLZRRC10) (Part 1 of 2) Figure 2-3.4. Application Program Control (DLZRRC10) (Part 2 of 2) 


INPUT cian PROCESS s OUTPUT INPUT - PROCESS OUTPUT 
Figure 2-3 
Step 4 
SCD 
SCDPRHED [~ ==> 6. Set linkage to program request COMREG 
handler. | 
ENDINIT) | J > 
ae 1. Perform the Load Blocks and ScD +16 


DL/I Facility Module Routine. (uma, MVCOM Macro 


Block Loader 
and Relocator 






7. Get space for Field Level }PSTFLD 
Descriptor Block entries. PSTFLDN 
SDB PSIL AMBX IPSTFLDG | 
— — -P 2. Determine possibility to use 


PDIR scD 


PDIRADDR SCDEXTBA 


| sequential get calls or to 
define data base as direct. ACB 


” | 
L- — 3. Determine possibility to use 


sequential get calls for 
secondary indexes. 


PST _-— 8. Pass control to application or 


utility program. 


DEX a) Application 
BALR? | Program 


SCDAPSTR 










PST 


PSTPCPGM 


7 DL/I Partition 
To 
SCD LOAD Macro Figure 2-3 
SCDSIND Step 6 
™ oe ; SCDEXT 
SCBSIID 5. Process ABEND linkage SCDEABEX 


if indicated. SCDEABSV 
SCDEPCEX 


STIXIT AB Macro 
SCDETRAN 
STIXIT PC Macro SCDETRSV 





tt 


SCDABSAV 





DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 


DLZRRC10 — Batch Partition Control CSECT DLZRRCOO Extended Description Routine Label Extended Description Routine Label 


Extended Description Routine Label Extended Description Routine Label 





6. Linkage to DLZPRHBO is done MVCOM 





1. This module’s end address is used DLZPCCO00 |DLZPCC0O via MVCOM macro. 
to initialize the beginning of 
storage available for control . Use GETVIS macro. Issue message GETVIS 
2. . If utility program is a logical BALRUSER 
relationship utility, set R1 to 
3. point to the PST before passing 
control to the utility. Set R1 
4. Write message DLZ0121 if to point to the user PCB list 
—”n program is not found. for all other programs. 
© 
Q 5. UPSI card information has 
5 been moved to the SCD. 
==} 
Lg 
@ 
7 
io) 
a 
io) 
mh 
fe) 
au) 
@ 
93 
gg. 
2) 
= 


L-@ 
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Figure 2-3.5. Utility Block Build Request Entry (DLZRRC10) 
INPUT PROCESS 






From 
Figure 2-4.1 
Step 2 


1. Restore registers saved during 
initialization. 


ULUCNTRL — — -B 2. Build the blocks. 


DLZPINIT 


BALR Btock Loader 


and Relocator 
2-3.7 


— > 3. Establish addressability 


PSTPREAD } | POIRADDR 


4. Return to caller. 


DLZRRC10 — Batch Partition Control CSECT 


Extended Description Routine Label 





1. Control comes from the batch ULUPRHEP| ULUPRHEP 
program request handler (DLZBNUCO) 
when a utility block build request 
(BLDB) is detected. 


. If a block build error is indicated 
in ULUCNTRL, X‘0C’ is set 
in register 15 and control returns 
to the utility program. 














Figure 2-3.6. Application Program Control Completion (DLZRRC10) 
OUTPUT INPUT PROCESS : i 


OUTPUT 


From 
Figure 2-3 
Step 6 


SCD 


— "a7 1. Set up UNLD call to purge 
buffers and close DB. 3 


==) 


BALR 










R1 PST 
PST PSTLIPRM 


R13 


PSTSV1 
















DLZDLA0O 


Call 
Analyzer 














Log 1/0 AREA 


= ————— > 2. Write Log TERM Record. 




























= | DLzRDBLO | 
ScD | BALR LOG WRITE 
SCDREENT | enuy Foor 
SCDDBLFW ‘ LOGOUT 
| “FP? 3. Force out last log record. 
screws 
PPSTIND SCDDBLOP 
BALR FORCE WRITE 
Entry Point 
R1 | 
> 4. Close the log. : 
DLZRDBLO 
CLOSE RTN 
scD 
SCDDSEHO —~- — # 5. Close tape workfile if open. 
== CLOSE Macro 
scD 
SEDIBACE P 6. Return to VSE. 
== ‘DLZTRCAL 
Macro 
DLZRRCOO = EOJ Macro 
VSE 
DLZRRC10 ~ Batch Partition Control CSECT DLZRRCOO 
Extended Description Routine Label Extended Description Routine Label 





1. TERM record ID=X‘07’. DLZPCCO00 | BALRUSER 


4. The UNLD call is bypassed if 
the ULU return code in register 
15 is not zero. 


6. Issue macro DLZTRCAL 
TYPE=STOP. Trace 
ID=X‘FC’. 
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Figure 2-3.7. Block Loader and Relocator (DLZRRC10) (Part 1 of 5) 


From Figure 
INPUT From Figure gm PROCESS 


or 2-3.5, 
Step 2 


1. Bypass block loading if identifier 
is ULU and entering here from 
Application Program Control 
(Figure 2-3.4, Step 1). Go to 
Figure 2-3.8, Step 8. 


2. Load the PSB. 


scd 
SCDDLIPS 


SCDDLIUP VSE = LOAD Macro 
Core 


image 
STATLDLS Library 


LOAD Macro (Directory Entry 


ScD PSIL 


SCDDLIUP |] PSILDMBN 
PSILGOPO 


3. Initialize DMB directory. 














PSB ae 4. Initialize and relocate 
PSB pointers. 


PSBCODE 


OLZRRC10 — Batch Partition Control CSECT 


Extended Description Routine Label 


Extended Description 


1. There are no blocks to load 
for the logical relationship 
utilities if this is the first 
call 


DLZPINIT | DLZPINIT 


The return address is saved 

in RETRGSV. PSIL. 

2. If the PCB is not found and 
the parameter identifier is 
ULU for a logical relationship 
utility, set a block load error 
indicator and return to 
Figure 2-3.5, Step 3. 


Write message DLZ012I if the 
PSB is not found. 


Write message DLZ017I if the 
PSB version/modification level 
is incorrect. 





ee 


3. The PSILs are scanned for 
DMB names and a DDIR is 
created for each unique DMB 
encountered. The address of 
the DDIR replaces the 
respective DMBNAME in each 


OUTPUT 


RETRGSV 


PDOIRSYM 
PDIRADDR 


PDIRZWA 


PDIRSILA 


DDIR 


SCD 


PSBXIOWK 


PSBNDX 
PSBIOAWK 


PSIL 
PSILDMBN 
PSILDIRN 





PSILDIRA 





PDIR 


PSB 
PSBPST PDIRCODE 


PSBXPCB 
| PSBLIST | 


DLZRRCOO 


Routine 





Label 














Figure 2-3.7. Block Loader and Relocator (DLZRRC10) (Part 2 of 5) 


INPUT PROCESS 
ak Pare 5. Relocate the PCB and JCB 
pointers. 


SCD SDB 
SCDSIND2 ||SDBORGN ——-f 6. Initialize all SDBs belonging 


to a particular JCB. 


PST SDBPARA 
PSTPCT1 SDBDSGA 
SDBTARG 


SDBKEYFD 


SDBXPANS 


return to Step 4. 


scodD 


ISCDDLIDM_| ee 
SCDDLION 
SCDDLIUP 


VSE 
STATLDLS Core 


Image 
Library 


DDIR 


DDIRSYM 


LOAD Macro 


= LOAD Macro 


ae 


DDIR DMB 


DDIRCODE | [IDMBORG 
OMBPPRND 


required and set indicators. 


ACBXT 
DMBCINV 
DMBLRECL 





DLZRRC10 — Batch Partition Control CSECT 


Extended Description Routine 


5. 


6. The call sensitivity and data 
base organization of the SDB 
is checked to see if buffer pool 
space is required. An indicator 
in the DDIR is turned on if 
space is required. 


. The pointer to the PSBLIST 
is bumped to the next PCB 
pointer entry and processing 
returns to Step 4 if we are not 
at the last PCB. 


If the index PCB exists, return 
to Step 5 and relocate it. 


. Write message DLZO121 if the 
DMB is not found. 


Write message DLZO1 81 if the 
DMB version/modification level 
is incorrect. 


7. Test for the end of the PCBs in 
the PSBLIST. !f not the end, 


8. Load and relocate each DMB. 


9. Determine if buffer pool space 


. If buffer pool space is required, 





OUTPUT 


PCB 


JCB 
lJCBSDB1 


DDIR 
SDBPARA 
SDBDSGA 
SDBTARG 
SDBKEYFD 
SDBXPANS 


DDIR 


DDIRADDR 


{Directory Entry) 
SCD 


| SCDDLIUP | 


DL/I Partition 








ACBXT PST 


ces 


DLZRRCOO 


If the DMB is not found and 
the parameter identifier is ULU 
for a logical relationship utility, 
set a block load error indicator 
and return to Figure 2-3.5, 
Step 3. 


GETBUFRS 
the size of each contro! interval 

(rounded to the next multiple 

of 512) is indicated in PSTWRK1 

and PSTWRK2 for later allocation 

of the buffer pool. 
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Figure 2-3.7. Block Loader and Relocator (DLZRRC10) (Part 3 of 5) Figure 2-3.7. Block Loader and Relocator (DLZRRC10) (Part 4 of 5) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


SCD 
STATLDLS 


DL/t Partition 


DMB DL/I Partition 


index Exit Routine 


SEC PSDB 
DMBSFLG1 DMBLST 


pMeseces j= LOAD Macro (Directory Entry) 
. | DMBXDSDB | 


eg 14. Process secondary list if 
present for each PSDB. 


SEC 
DMBSCDE 


10. Load Randomizing Module if DMB DACS 


DMBDALGR | | DMBDAEP 


XMPRM 


Gap 020 ita 
VSE Return to Step 11. 
XMPRM Core 


ScD 
SCDDLIDM ieee ea Randon 
SCDDLIUP organization is HDAM. 
(ump LOAD Macro (Directory Entry) 
ATLDLS ScD 
= LOAD Macro SCDDLIUP 
image " 
DACS DMBXMXNM Library 
DMBDANME DMBXMRES 
PDIR PSB 
> 11. Adjust offsets in DMB to crc 5 PGE ° : 
addresses for each valid DDIR. PDIRSILA sco ae 15. Connect data bases to PCBs. pepcepro |I pscpcBa 
At end of DDiRs, go to Step 15. 
DL/t Partition ; : 





PCB 
DBPCBJCB JCB 


JCBPRLEN 


DSGDMBNO | PSIL 
DSGDOCBNO jj PSILDIRN 


ACBXT 


ScD 
SCDDLIUP DMBINDO 
DMBACBNM 


12. Build VSAM Exit List, RPL, and 
ACBs. 


GENCB BLK=RPL Macro 





GENCB BLK=EXLST Macro 


DMB 
DMBORG 





JCB SDBXP 


SDB 
——-—P 16. Connect SDBs to PSDBs. 
PSDB 


GENCB BLK=ACB Macro 





SDBxP 
DSG 


PsDB 
PSDB 


= 
DMBCPEP 


MBFEDBA 
DMBSCTAB DMBCPRES DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 


Extended Descripti Routine Label 


15. If this is Reload Restart, 
the parameter ID is ULR. 
Bypass checking whether 
the processing option should 
be changed to load or not. 


STATLDLS sc 


D 
[L.........._}|scopuiue 





13. Relocate PSDBs and SEC list. DL/I Partition 


LOAD Macro (Directory Entry) 


LOAD Macro 


DM 
DM 


B 
BLENTB 
DMBSECTB 


IT 





PSDB 
DMBFDBA 
DMBVLDFG 
DMBSCTAB 
DMBLST 





Extended Description 


14. If a secondary list is present, DLZPINIT |PROCSEC 
its code is tested and referenced 


SCD 
DMBs are resolved to DDIR 


DLZRRCOO pointers and placed in the list. 





DLZRRC10 — Batch Partition Control CSECT 


If an index user exit routine is 
present it is loaded if it hasn’t 
already been loaded fora 
previous SEC. 


Extended Description Routine Label Extended Description Routine 
10. Before loading the randomizer a DLZPINIT |RANCKLUP 
check is made with all currently 
loaded randomizers. If one with 
the same name as the one we are 
loading is found, the entry point 
is resolved and the actual load is 


bypassed. 


Return to Step 8 until there are 
no more DDIRs. 


Write message DLZO121 if the ran- 
domizing module is not found. 





11. The DTF address constants are 
adjusted if access is HSAM or 
simple HSAM. 


. If HISAM, two sets of control 
blocks will be built. 


. The segment compression routine 
for each PSDB is loaded (if it 
hasn’t already been loaded for a 
previous PSDB). 


Write message DLZ0121 if the 
compression routine is not found. 


Write message DLZ2661 if there 
is an invalid secondary list code. 


Write message DLZO121 if the 
user exit routine is not found. 


Write message DLZ263] if the 
SEC makes an invalid DMB 
reference. 
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Figure 2-3.7. Block Loader and Relocator (DLZRRC10) (Part 5 of 5) 
INPUT PROCESS OUTPUT 


SDB 


PSB Prefix a 17. Initialize field level sensitivity tables. NU sco FERTRTEP 
FERTRTLG 

FERTPRES 
FSB 


FSBUVTYP | rent 


FSBIVA FERTRTEP 
FSBFERTA FERTNAME To Figure 
FSBLEN FERTPRES 2-3 Step 8 


S8 PDCA 


FSBIVA PDCAFERT 


SCDDLIUP 


SCDPDCA 





FERT 








DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 


Extended Description Routine Label Extended Description Routine Label 


17. Includes FERT, FSB, and loading user 
field exit routines. 
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Figure 2-3.8. Control Program Initialization Completion (DLZRRC10) (Part 1 of 3) Figure 2-3.8. Control Program Initialization Completion (DLZRRC10) (Part 2 of 3) 
INPUT Fie 29 PROCESS = OUTPUT ma INPUT PROCESS OUTPUT 
tep 


PST 
BEPL scD 


ScD 
PSTWRK3 SCDBFPL 

SCDDLIDN ; BEPLSUBD_| {SCDDLIDM 
BFPL SCDDLIUP “—=——-—}P $1. Acquire storage for the buffer BFPLSUIN _]||SCDDLIDN 


pool prefix and subpool informa- 





BFPLLEN 


tion table. If subpools are not BIF 
SBIF required, skip to Step 8. statements. OMG 
‘ 
pDIR 


ll 


5. Assign DMBs not previously 


SCD ACBXI assigned to subpools by HDBFR Sele 


Directory 


SUBLEN 


ACBXT 


DMBRBASN 





——— TP 2. Analyze and interpret the 
following parameters in the 
DL/I parameter card: 


SCDDLIPS 
S 6. Print subpool allocation 


PSTWRK1 statistics. 


PDIRCODE 





scD 
T 


HDBFR HSBFR TRACE ASLOG LOG 


eam NXIPORT 


BALR DL/t Control SYSLST 


Card Analyze 
Routine 
2- 





BFEPL SBIE 


BFPLPRAD SUBBFNO 
BFPLSUIN SUBBFS12 
scD 





~ 7. Format buffer prefixes and SBIE ScD 


SUBUCPRE SCDDLIUP 


SCD BFPL allocate I/O buffers. 
| scoDBFPL_| ——— 3 = 3. Format the buffer pool prefix. 








BFPLROCD 
BFPLPRAD 


BFFR 


IBFFRADDR | ! 


SCDDBFPL 


BFPLSUBD 





BFPL _ ACBXT SBIF 
— aoe ooo a : . . * 
BFPLSUBD {| DMBRBASN 4. Store buffer sizes in subpool : : 8. Bypass DL/I load processing if 
|BFPLSUBD_| SUBBFSIZ they have once been loaded. ‘ 


| BFPLSUIN | information table.  SUBBDMBCT| 
— | —oo Skip to Step 13. 
DMB 


PST Subpool 


PSTWRK1 Directory 


PSTWRK3 





DLZRRC10 — Batch Partition Control CSECT ) DLZRRCOO DLZRRC10 — Batch Partition Control CSECT DLZRRCOO 


Extended Description Routine Label Extended Description Routine Label 





Extended Description Routine Label 





5. Write message DLZ2621 if buffer 
allocation error occurs. 

2. Write message DLZ009I if number BFPNOCLR 
of subpools specified in the param- PRMSRET 
eter statement are not equal to the 


number of HDBFR statements. BFRINIT 


BFPREADY DLILOAD 


. This step determines the size of the NODMMOV 
subpools. They are allocated, largest 
first, until the specified number is 
exhausted. Remaining DMBs requir- 
ing subpools are assigned evenly 
across all existing subpools. If you 
specified more subpools than 
necessary, an additional pool of 
512 buffer size is allocated for 
delete workspace. 


The subpool sizes are sorted so that 
the largest subpool appears first in 
the information table. 
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Figure 2-3.8. Control Program Initialization Completion (DLZRRC10) (Part 3 of 3) 


INPUT PROCESS 


LOADTBL 


DLZRDBLO 
DLZDLDOO 
DLZDDLEO 
DLZDHDSO 
DLZDXMTO 
DLZDLOCO 
DLZDSEHO 
DLZSTRBO 


ScD 


SCDDLIUP 


VSE ‘ 
Core Image Library 










DLZCPY10 


VSE 


Core Image Library 


iat 


VSE TRACSAV 


Core Image Library 





D 
SCDDBLNT 
SCDSIND 

SCDDBLOP 





scD PDIR 





SCDREENT PDIRSYM 13. Write log schedule record. 
SCDCWRK 
Log /0 
Area BALR 
aa 


RETRGSV 


DLZRRC10 — Batch Partition Control CSECT 
Extended Description Routine Label 
9. NUCLODUC 


11. Issue macro DLZTRCAL TYPE=START LOAD9 
following the load. Trace ID=X‘FE’. 


Write message DLZ026I if initialization 
fails. 


9. Load each DL/I facility module 
if required and not in SVA. 


10. Load FLS module if needed. 


DL/I Partitio 
ee 
; | 
eae 
pas see el 
scD 
11. Load the trace module if needed. DL/I Partition 


14. Return to caller. 


OUTPUT 


SCDDDBHO thru 
SCDDSEHO and SCDSTROO 


DL/I Partition 


Trace Module 


scD 
SCDDLIUP 
SCDTRACE 


(am DLZTRCAL 


12. Initialize DB logging. 


dum) DLZRDBLO 
BALR 


LOG INIT 
Entry Point 









LOGWRITE 
Only 
Entry Point 


LOGOUT 


DLZRRCOO 


Extended Description Routine Label 


12. Cancel if open error returned. Upon NOLOMOD 
retum, the entry points to DLZRDBLO 
in the ‘Data Base Change Log Section’ 
of the SCD (beginning with the 
SCDREENT) are initialized. 


. The schedule record ID=‘08’. 


. Return is made to the instruction 
following the BALR to DLZPINIT. 
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Figure 2-3.9. DL/I Contro! Card Analyze Routine (DLZRRCOO) 
INPUT PROCESS OUTPUT 


From 
Figure 238 
Step 2 
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Worlcares ScD 
SCDDLIDM 


SCODLION 


DDIR 


suspootn |r — 


SBIF 










sco Workarea 
scopuiom | f........ | 
SCDOLION 











ODIR OMBACBAD 
DDIRADDOR OMBACBLN 


OmB 
DMBORG 








Extended Description 


1. The number of buffers/subpools 
specified in the HDBFR statement 
is set in the SBIF. Write message 
DLZO19I if the number is greater 
than 32 or less than 2. Default is 2. 


The SUBPOOLN is incremented 1 
for every HDBFR statement. Each 
DMB is assigned by placing the 
relative subpool number (SUBPOOLN) 
it is being assigned to into a byte of 
the DMB SUBP DIR which corre- 
sponds to that DMB. The length in 
bytes of the DMB SUBP DIR equals 
the total number of DMBs. Write 
message DLZ1171 if this DMB has 
already been assigned a subpool. 


CNTHDMB is a count of all the data 
bases assigned by the user in the 
HDBFER statements. 





VS, 


1. Interpret the HDBFR statement. 


2. Interpret the HSBFR statement. 


3. Interpret the TRACE statement. 
LOAD Macro (Directory Entry) 


4. interpret the ASLOG statement. 


LL 


To Figure 
2-3.8 


5. Interpret the LOG statement. 


Step 2 







CNTHDMB 


SBIF 
DMB SUBBFND 
Subpool 

Directory [SUBBFHD | 








ACBBUFND 
ACBBUFNI 


ScD 


TRAGSAV 


scD 


Routine Label 


NXTPORT |NXTPORT 
HDBFR 


DLZRRCOO 


Write message DLZ1151 if a DMB 
name is invalid. 


. The user specified VSAM buffer 


allocations are set in the ACB for 
HISAM and INDEX DBDs. 


Write message DLZ115I for an 
invalid DMB reference. Write 
message DLZO19I if valid values 
were not specified. 


. Write message DLZ01 21 if module 


is not found. 


. Write message DLZO151 if there 


is a syntax error. 


. Write message DLZ078I if UPSI 


card said no log. 


Write message DLZO75S1 if invalid 
parameters. 
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Figure 2-4. Batch Nucleus (Overview) 
INPUT 


DLZIWAIT 
Macro Call 


DL/I 
Facility 
Modules 


3. The DLZIWAIT macro is used by 


DLZRDBHO00, DLZDBH02 and 
DLZRDBLO. 


. After the DLZBNUCO module is 


loaded, SCDDBLNT contains the 
entry point of this routine. 


If, however, batch initialization 
(DLZRRCOO) determines that the 
DB logger is required, the entry 
point of the log initialization 
routine in DLZRDBLO is stored in 
SCDDBLNT. The log initialization 
routine changes SCDDBLNT once 
more to point to the log writer 
entry point. 


With this routine, the DL/I 
facility modules need not know 
if logging is required or not. 





PROCESS 


1. Batch Program Request Handler 
(See Figure 2-4.1) 


2. Partition ABEND Routine Entry 
(See Figure 2-4.2) 


3. DL/! Batch Wait Routine 


=p svc7 


4. Branch instruction used if 
no logging. 





DLZIWAIT |DLZIWAIT 


DLZBR14 |DLZBR14 





Return To 
Caller 


Return To 
Caller 


OUTPUT 


LZBNUCO 


Routine 


Label 
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Figure 2-4.1. Batch Program Request Handler (SCDCSECT) 
INPUT See Note PROCESS OUTPUT 


PST 


PSTPCT2 


PPST. 


———-—} 1. Establish SCD and PST addressability. 


Parerveter — ——-—p 2. Determine if this is an utility block build 
ist 


call. If it is, go to Figure 2-3.5. If it is not, 
continue at Step 3. 





a] 


ST 


User 
SCDLOWER Parariater ———-—p 3 PSTLIPRM 


. Verify call list and store in PST. 





SCD 
— — — — 4. Pass control to call analyzer to validate and 


perform DL/! function. 


R13 
PSTSV1 


DLZDLAOO 


Validate DL/I 
function 


BALR 


=) 


. If no errors are detected upon return from 
DLZDLAOO, move data to specified area. 





User 
HO Area 


i 








Return to 
Application 
PST SCD Program 
—-—-—-F 6. If an error has occurred upon return from 
PSTERCOD DLZDLAOO: 
DLZRRCOO 
Error Message 
Writer 
2-3.1 
Abnormal 
Termination 
2-4.2 
SCDCSECT - Batch Nucleus CSECT DLZBNUCO 
Extended Description Routine Label Routine Label 


Note: This routine receives control from count. Write message DLZ2611 if 
the language interface module (DLZLIO00) invalid parameter address, Then exit to 
linked with the application program. DLZABEND. 


1. When control is passed to the program | DLZPRHBO | DLZPRHBO 
request handler, register 1 must point 
to the user parameter list and register . Write message DLZ105I if a checkpoint 
13 to the user save area. ; was taken. 


During the first entry to DLZPRHBO, . Ifa DL/I routine determined that DL/I 
the PL/I STXIT routine and savearea should be terminated, go to the 
addresses from the PC option table are common error message routine to write 
saved if the application program is an error message using the message 
written in PL/I. DLZPRHBO also number stored in PSTERCOD by the 
sets/resets a switch (SCDLIPLI flag in DL/I routine. 

SCD) on exit/entry to indicate whether 

current execution is in DL/I code or 

PL/I code. This is done to enable high 

level language debugging for PL/I to 

give diagnostic information if a program 

check occurs in PL/I code. 


Reset PC exits if this is a PL/I applica- 
tion. 


2. 
3. Write message DLZ260I if invalid list 
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Figure 2-4.2. Partition ABEND Routine Entry (SCDCSECT) (Part 2 of 2) 
INPUT PROCESS 


Figure 2-4.2. Partition ABEND Routine Entry (SCDCSECT) (Part 1 of 2) 
INPUT From Caller fm PROCESS 
(See Note) 


OUTPUT OUTPUT 


ScD ‘ PST 


cepDIIer = 7. Issue UNLD call. 
(== DLZDLAOO 


DL/I Analyzer 
Module 


LOGOUT 8. Issue message DLZ002I. 
BALR 
= 
Writer 2-3.1 
9. If no dump wanted 
at DLZTRCAL 
TYPE=STOP Macro 
Cancel. 
ScD 10. if IDUMP is on system 
IDUMP == DLZTRCAL 


1. Establish SCD address. 










P 2. Force write and close data 
base log if required. 


D 
SCDDBLOP 








SCDDBLFW 





DLZRDBLO 


Force Write 
Entry Point 


DLZRDBLO 
Close Routine 
Entry Point 


3. Close workfile if required. 


cmp CLOSE Macro 


4. Bypass unloading the buffers if 
there was an error with the 
buffer handler; skip to Step 9. 


SCDDBLCL 


















SCD 
SCDDSEHO SCDSIND2 TYPE=STOP Macro 


SCDSIND2 


ABIND So 


Cancel. 
. Load and execute the formatted R4 


PSTERCOD fe 


ScD 
SCDSIND 





system dump program if required. 


STATLDLS 
DLZFSDPO... 


GETVIS Macro 


SYSLST 





j= LOAD MACRO 


BALR 







VSE 


5. Issue message DLZ0011. Core Image Library 


BALR 
DLZRRCOO 


| Error Message 
Writer 2-3.1 





PSTFNCTN 
PSTRTCDE 
PSTOFFST 
PSTBLKNM 
PSTBYTNM 
PSTDATA 


rPSTDSGA rDMBACBRP| — — 6. Bypass unloading the buffers if 
VSAM is active; skip to Step 9. 


**DL/I| ABEND 


ax) DLZTRCAL 
TYPE=STOP Macro 
=> JDUMP Macro 


SAVE AREA** 








To DOS/VS 


SCDCSECT — Batch Nucleus CSECT DLZBNUCO 


Routine Label Extended Description Routine Label 


RPL 
+X‘'23’ 


Extended Description 








SCDCSECT — Batch Nucleus CSECT DLZBNUCO 


. DLZIDUMP macro determines if 
IDUMP is available. 


. The GETVIS macro is used to 
acquire storage for DLZFSDPO. 


Extended Description Routine Label Extended Description Routine Label 




















¢ 
, 
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Note: The ABEND routine is invoked 
by the VSE supervisor if (1) there 
is a program check or other ABEND 


the first entry to DLZPRHBO - see 
Figure 2-4.4, Step 1.) After PL/I 
completes diagnostic information, 








If there is not enough storage 
available to DLZFSDPO0, only 


7 situation found by VSE (2) if processing returns to the modified JDUMP output is put to SYSLST. 
@ the job is being abnormally ended by address in DLZABEND. 

o a DL/I routine that determines DL/I 

ro should be abnormally ended, or (3) . If the HD reorganization reload module 
= specifically by the buffer handler (DLZURGLDO) is running for either a 
w when there is an error concerning standard reload or a reload restart, close 
ee buffers. the workfile generator file if it is open. 
Kq 1. If there is a program check, DLZABEND | DLZABEND|DLZABEND 

@ checks the switch (SCDLIPLI flag in 

a SCD) set by DLZPRHBO to determine if 

io) program check occurred in PL/I code. 

au. If error occurred while in PL/I code 

© (SCDLIPLI= 1), a return address is 

sii modified and a branch is made to PL/I 

© STXIT PC routine. (The address of the 

ao PL/I STXIT PC routine was saved during 

3 

BE. 

i?) 

= | 
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Figure 2-5. Online Initialization (Overview) 


INPUT 


Extended Description 





From 
CICS/VS 
Overlay 
Supervisor 





. Online initialization start. 
(See Figure 2-5.1) 


. PSB processing. 
(See Figure 2-5.2) 


. DMB processing. 
(See Figure 2-5.3) 


. Control program initialization. 
(See Figure 2-5.4) 


DMB open processing and online 
initialization completion. 
(See Figure 2-5.5) 


Routine Label 


DLZOLIOO 
PSBLOADL 
DDIRINIT 
DLZCPI00 
DMBOPENA 





CICS/VS 
Partition 


DLZOLI00vrnp 


DLZOLIO0vrnp is the module 
identifier where ‘v' is the version, 
‘r’ is the release, ‘n’ isan additional 
identification digit, and ‘p’ is the 


latest PTF number that has been 
applied. 


To 
CICS/VS 
Overlay 
Supervisor 


DLZOLIOO 


Routine Label 
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Figure 2-5.1. Online Initialization Start (DLZOLIO0) 
INPUT PROCESS 











From 
Figure 2-5 
Step 1 


SIP CSA 
= 
CSAOPEL 





SIP 


ENDSAVE 
VSE 
LNGTHSAV COMREG 


ScD lursi | (] "2. Initialize online nucleus. 


GMD aivcom mcr 


SCDPRHED 
SCDLSTAD 


SIP PST ——P 3. Build temporary PST and PPST 
used during initialization. 


(a=) }sipconE 
PPSTLEN BALR 


SIPCORE PSTLNGTH 


PPST 





DLZOLI00 — Online Initialization CSECT 


Extended Description Routine Label 


1. Module identifier (DLZOLI00vrnp) is 
defined here. 


Upon entry from the CICS/VS Overlay 
Supervisor, SIPBAR2 contains the 

overlay entry point, and SIPBARI 
contains the SIP common communications 
area. The current storage allocation infor- 
mation is saved in order to release storage 
if DL/I initialization fails. 

The DL/I systems contents directory is 
located from the CSADLI field in the CSA 
optional features list (CSAOPFL). 


Write Message DLZ0311 if program isola- 
tion is being used and CICS/VS journal- 
ling is not being used. 

Write message DLZ118I to indicate the 
DL/I online initialization is starting. 


. CSADLI is modified to point to the DL/I 
interface module address list, (DFHDLIAL 
DSECT), which is a table of entry points 
for the task initiation module and the task 
and system termination routines. 


1. Establish addressability to 
CICS/VS control blocks and SCD. 








OUTPUT 


INITSZSV 
INITUPSV 


| scDIwalt | 
SCDERRMS DOS/vVs 
SCDCSABA COMREG 


| scosinD _ | 


SCOCWRK 


2 P. 
PPSTECB PSTPREAD 
PPSTCA PSTSCDAD 
PPSTID PSTSV1 


PSTSV2 






PSTSV3 
CICS/VS 
GETMAIN Routine PSTSV4 
PSTSV5 
PSTSV6 
PSTSV7 
To 
Figure 2-5 
Step 2 


DLZOLI00 


Extended Description Routine Label 


SCDSIND is initialized with bits 6 and 7 of 
the UPSI switch from the COMREG. The 
program request handler entry point is 
moved to byte 16 of the COMREG and 
temporary entry points are established for 
the error message routine and the DL/I wait 
routine. Also, SCDCWRK is initialized at 
this time to point to the beginning of the 
low end of free storage. 


3. The PST and PPST are built directly after 
the initialization overlay high storage ad- 
dress. The save areas are chained and 
SCDCWRK is updated to indicate the new 
upward core allocation starting address. A 
dummy task ID of ‘01’ is set in the PPST. 


PSTPPST © 


Since a DL/I task with its associated PST is 
not yet involved, a temporary PST is needed 
to provide work space and save areas during 
the execution of this module. 








NUCAD 
DLZSCD CSAOPFL 
SCDDATE 











Figure 2-5.2. PSB Processing (DLZOLIO0) 
INPUT PROCESS 


From 
Figure 2-5 
Step 2 








OUTPUT 


scD 
rpoiroprc | fe —— 1. Load PSBs. 
usa 
BALR Module Load 
Routine 






PSB 


[ss >: 2. Initialize PDIR. 





PSB 
—— 
JCB 
soers 


DSG PCB 
DSGDMBNO] |DBPCBJCB 


3. Check PCBs sensitivity. 





PCB PCB 
DBPCBJCB PCBLST 














(=) 


BALR 









DSGDSGLN 


DLZOLIOO — Online Initialization CSECT 


Extended Description Routine Label 





1. The PDIR address is located in the SCD IPSBLOADL |PSBLOADL 
and each local PSB is loaded temporarily, 
directly behind the dummy PST. The 
PSIL entries that indicate the DMBs 
which may be used by this PSB are 
loaded along with the PSB. They are 
appended in front of the PSB. If PSB 
initialization is successful, it will be 
moved up prior to completion of 
initialization. 

Write message DLZ0441 if the PSB is 
not found. 


Note: The PSB that is loaded originally 
contains more information than is 
required during DL/I execution. There- 
fore, the PSB is loaded, the length of the’ 
execution-time section of the PSB is 
calculated, storage is acquired for the 
execution-time PSB, and that section of 
the PSB is moved into the GETMAINed 
area. Also, workareas are not in the 
core image library version of the PSB. 
They are added to the size of the 
GETMAIN. 


. Write message DLZ0711 if the PSB is 
not version/modification 1.1 or later. 


aire ais eae > 4. Move the PSIL and create the 
segment intent list mask. 

DSGDMBNO] {PSILLNGH 

DSGINDA PSILSEGD 


GETCORE 


Storage Acquisition 


2-5.6 





PDIR 


PDIRADDR 
PDIRPSBL 


PDIRZWA 






SCD PDIR 
IscosIND _| {roincone | 


PSIL 


PSILNTNT 


PDIR DSG 


IPDIRSILA _ | | DSGDMBNO| DMBNO 
PSIL 
frsituncH_] 


Routine 
25.7 


To DLZOLI00 
Figure 2-5 
Step 3 


Extended Descrip 


3. All the SDBs for each PCB in a PSBLIST 
are tested for correct processings options. 
Indicators are set in the corresponding 
PDIR entry, PSIL entry, and the SCD to 
indicate intent. The corresponding SIL 
entry is found by using the offset value 
found in DSGDMBNO. 


Write message DLZ042I if a PSB accesses 
a HSAM DBD online. 


Write message DLZ0431 if load sensitivity 
is detected. A PSB contains a PCB with 
PROCOPT=L which is invalid online. 


. The PSILs are moved from the temporary 
position and as they are moved, the size 
of each entry is increased by the size of 
PSILSEGD to allow for the segment intent 
bits mask copy. For program isolation, 
non-exclusive intent bits are translated to 
read-only to allow simultaneous schedul- 
ing of update-sensitive segments. All the 
DSGDMBNOs are adjusted to show the 
new offset. Also, each PSILLNGH is 
adjusted to show each new PSIL entry 
length as each entry is moved. 


Return is made to Step 1 to repeat this 
routine for PSB until there are no more. 
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Figure 2-5.3. DMB Processing (DLZOLI00) (Pert 1 of 3) Figure 2-5.3. DMB Processing (DLZOLI00) (Part 2 of 3) 
INPUT PROCESS — : OUTPUT INPUT PROCESS OUTPUT 






scD PDIR gees 

SCDDLIPS | {PDIRSILA | & 

SCDDLIPN PSI DDIR | 

ScEDLIDM | Pail: 1. Initialize DMB directory. 

SCDDLIDN |] PSILDMBN ACBXT 
aaa 5. Scan HSBFR entries in ACT. DMBVSBFR 


al 


HSBFR ais 





DDIRSYM 








> 2. Build a DDIR if the DMB does not 
have one. DDIRNOUP is initially 
tol [sercore rel. =} | 7 
GETCORE ODIR lee: 6. Adjust offsets in DMB to 
Storage Acquisition addresses for each valid DDIR. 
Routine 
BALR oot 





At end of DDIRs go to Figure 
25, Step a. 


OMB 


PSIL DDIR SCO 
> 3. Store DMB number in DDIR and DDIRNUMB [scoexrea ] 7 
DMBPPRND 


PSIL. 


7. Build VSAM RPL, Exit List, and ACBs. 


OMBACBRP 


ACB. 
ait t (a> GETCORE 
DMBUSBFR | SCDEXT BALR | Storage 


Acquisition 
DMBACBNM |} }SCDEVSEX 






Routine 


25.7 





DDIRNUMB 





GENCB BLK=RPL Macro 


E =EXLST Macro 
ScD DDIR DDIR =z GENCB BLK=EXLST 
poinsym >" _—4. Load and relocate each DMB. , 

= 


INITLODR_ 


Module Load 
Routine 
25.6 


BAL 
OMBLOADR 


ar Build Associated 
DMB Control Blocks 
2-5.10 


DLZOLI00 — Online Initialization CSECT DLZOLIOO 


GENCB BLK=ACB Macro 










DLZOLI00 — Ontine Initialization CSECT DLZOLIOO 





5. Write message DLZO151 if invalid DDIRINIT |CHKHSB 


Extended Description Routine Label 
DBDNAME in HSBFR statement. 


. The PSILs are scanned for DMB names | DDIRINIT | DDIRINIT 
and a DDIR is created for each unique DDIRFOND 


Extended Description Routine Label 


Write message DLZ0491 if no valid 
DMBs are found. 













The number of index buffers and 








DMB encountered. The address of the 
DDIR replaces the respective dmbname 
in each PSIL. If PSELGOPO = 0, set 
SNE = 0 for corresponding 


. Write message DLZ0451 if no 
CICS/VS FCT. 


Write message DLZ046I if no FCT 
entry existed matching the dbdname. 


3. Write message DLZ0491 if no valid 
DMBs are found. 


. Write message DLZ0471 if DMB not 
in library. 


Write message DLZO72I if the DMB 
is not version 1.1 or later. 


Write message DLZ048I if the 
randomizing module is not found. 









































KSDS buffers in the HSBFR entry 

is moved to the ACB extension. If 

the organization is HISAM the number 
of ESDS buffers is moved to the 
second ACBXT. These values are 

used in building the VSAM ACBs 

(in Step 7). 


. If HISAM, two sets of control blocks 


will be built. 


Information obtained from HSBFR 
statements is used for the GENCB 
BLK=ACB BUFND=parameter and 
BUFNI parameter. If none was 
specified, the default of 3 index 
buffers and 2 data buffers is used. 
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_ Figure 2-5.3. DMB Processing (DLZOLIOO) (Part 3 of 3) 


INPUT PROCESS 











OMB 


DMBLENTB 
DMBSECTB 


CPAC 


DMBCPCSG 


PSDB 


lomeroea | 







——-— _ 8. Relocate PSDBs and SEC list. 


= INITLODR 


BALR | Module Load 


Routine 
2- 









DMB 
DMBSIZE 
SCD ai P 9. Process Secondary List if 
present for each PSDB. 
SCDDLIDM 
Sseouen Gp wiriooe 
BALR Module Load 





Routine 
2-5.6 


DDIR Return to Step 6. 


XMPRM 


DMBXMXNM 
OMBXMRES 





DLZOLIOO — Online Initialization CSECT 


Extended Description Routine Label 





8. The segment compression modules DDIRINIT 
for each PSDB is loaded if present. 


Write message DLZ073] if the 
compression module is not found. 


. If a secondary list is present, its 
code is tested, and referenced 
DMBs are resolved to DDIR pointers 
and placed in the list. 


If an index user exit routine is 
present it is loaded. 


Write message DLZ013] if the SEC 
makes an invalid DMB reference. 


Write message DLZ2661 if there 
is an invalid secondary code. 


Write message DLZ074I if the 
indexing module is not found. 





OUTPUT 


PSDB 


OMBFDBA DMBCPEP 
OMBSCTAB DMBCPRES 


PSDB 


DMBLST 


XMPRM 
OMBXMXEP 
DMBXMRES 


DLZOLIOO 


CPAC 


SEC 


DMBSECDB 
DMBXITAD 


DMBXDSDB 


DMBXPSDB 
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Figure 2-5.4. Control Program Initialization (DLZOLIOO) (Part 1 of 3) 


INPUT 


From 
Figure 2-5 
Step 4 


SCDDLIPN PDIRADDR 


SCDDLIPS PDIRPSBL =", 


PDIRZWA 
PDIROPTC 


PSB 
ae 





NUCAD ie 


DLZOLIOO — Online Initialization CSECT ~ 
Extended Description 


1. 


2. The address of the storage acquired 
is used as the ‘move-to’ address in 
Step 3. 


. Once the PSB is moved, its new 
address is stored in the PDIR and 
the old PSB address becomes the 
new code upper boundary address 
(upward core allocation starting 
address), SCDCWRK. 


. Write message DLZ056I if PSB 
fails to initialize. 


. If there is an SLC name at the 
nucleus address +8, the SLCLOAD 
routine loads the action modules. 


Write message DLZ032A and termi- 
nate DL/I initialization if CICS/VS 
journalling is to be used but there 
is no system log entry (X‘01’) in 
the JCT. , 





Vs, 





Routine Label 


PROCESS 


1. Control program initialization 
entry. 


2. Acquire storage for PSB and 


index work area. 
a] GETCORE — 
Storage 


BALR 
Acquisition 
Routine 
2-5.7 






3. Move PSB to permanent location. 


4. Initialize PSB. 


==) 


BALR 


PSBRELO 


PSB Initialization 
Routine 








2-5.11 


5. Return to Step 2 for each PDIR. 


6. Load action modules as SLC 
says if requested. 


= SLCLOAD 


BALR | Storage Layout 
Control Routine 






Extended Description 





DLZCPIO0 


PCCORET 
PSBMLUP 


PSBNWA4 


DLILOAD 
NUCLDNJL 





OUTPUT 


PSB 


PDIR 


PDIRADDOR 


scD 
scD 


DLZOLIOO 


Routine 


PSBXIOWK 


PSBNDXWK 
PSBIOAWK 





Label 









Figure 2-5.4. Control Program Initialization (DLZOLI00) (Part 2 of 3) 


INPUT 


PST ScD 


PSTWRK3 SCDDBFA 


NUCLODTB SCD 
—— 


—-_ eae 
SCDDBLNT 


SCDSIND 
SCDEXTBA 


DLZOLIOO — Online Initialization CSECT 


Extended Description 





7. If there is not a buffer pool prefix 
address in the SCD indicating the 
buffers have already been allocated 
and the number of subpools required 
is not zero, go allocate the buffers. 


. If CICS/VS journaling is supported, 
DLZRDBLO in the NUCLODTB is 
replaced with DLZRDBLI. 


Any module already loaded by 
SLCLOAD will not be reloaded. 


Write message DLZO55I if a DL/I 
facility module is not found. 


. SCDDBLNT is loaded with the entry 
point at the proper logger initialization 
routine (DLZRDBLO or DLZRDBL]). 
If logging was suppressed SCDDBLNT 
will continue to point to a branch 14 
for immediate return to caller. 





DLZCPIOO- |BFRALOC 


PROCESS 


7. Allocate buffers if required. 


BUFALLOC 


Buffer Allocation 
Routine 







BALR 
25.9 


8. If the number of DDIR entries does not 
equal 0, then load Action Modules. 


jm) INITLODR 


BALR Module Load 
Routine 
2-5.6 


9. Initialize data base logging 
if not suppressed. 


== DLZRDBLO 
















eZ? | oizrpet 


BALR CICS/VS Journal 
Logger Initialization 


OUTPUT 
§cD 
SCDDBFPL 












SCDDDBHO 
SCDDLIRE 
SCDDLICT 
SCDDBLNT 
SCDDLIDR 
SCDDLIIN 
SCDDHDSO 
SCDDXMTO 
SCDDLICL 


SCDELECB 


DLZOLIOO 





DEXT 
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Figure 2-5.4 Control Program Initialization (DLZOLI00) (Part 3 of 3) 


INPUT 





SCDSIND SCDEXT 


SCDDBLCL SCDELECB 


SCDDBLSV 





DLZOLIO0 — Online initialization CSECT 


Extended Description 


10. Write message DLZO06I if the 
asynchronous logger did not 


successfully attach and go 
close the log. 


The address list for the 





PROCESS 


10. Attach the asynchronous logger 
if the CICS/VS journal logger 
is being used. 


Gem arraci macro 


If error: 


ea) DLZRDBL1 


Log Close 
Routine 





Routine Label Extended Description 


DLZCPI00 | NUCLODNX 


asynchronous portion of the 
database logger and its save 
area address are located in 
the database log load module 
just prior to the entry point. 
If the attach fails, the 
database log is closed and 


the system continues without 
log support 








OUTPUT 
To 
Figure 2-5 
Step 5 
DLZOLIOO 


Routine Label 
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Figure 2-5.5, DMB Open Processing and Online Initialization Completion (DLZOLIO0) 


INPUT 
From 
Figure 2-5 
Step 5 


ScD 


DDIR 


scD 


SCDDLICL 


DDIR 


DDIRCODE 
DDIRCOD2 
DDIRVSRT 


ScD 


SCDDBMPS 
SCDSIND 












INITSW CSA 


CSAPLBA 
CSAPUBA 


SIP 


SIPPUT 
SIPOSUP 


CICSAVAK 


DLZOLJI00 — Online initialization CSECT 


1. If all PSBs are remote, do not attempt 
OPEN. 


2. 


3. Write message DLZ0571 if an open 
error occurred attempting to open a 
DMB. 


. During the course of initialization an 
error can also cause a direct return to 
CICS/VS with message DLZ052I - Ini- 
tialization Failed. 














PROCESS OUTPUT 


1. Determine if the DMB can be 
opened. DDIR 


DDIRCODE 


2. Issue OPEN ALL call to DL/I scp 
open/close. 


PSTDSGA 
R13 


== DLZDLOCO 
PSTSV1 


BALR DL/I Open/Close 
Module 


3. Scan DDIR for successful 
completion of open call. 












DDIR SCD 


DDIRCODE |} {SCDSIND2 


4. Write message DLZ1131 with Program 
Isolation status. Write message 
DLZ1191 with journaling/logging 
status. 


scD 







5. Write message DLZ0531 — 


bakes dale SCDLOWER 
DL/I Initialization Complete =o 


SCDUPPER 
SCDIWAIT 
SCDERMMS 


or 


Write message DLZ0541 — DL/I 
Initialization Error Detected. 


ee SIPPUT 


BALR Console Put 
Routine 









To 


CiICs/VS 
Overlay DLZOLIO0O 


Supervisor 

















Figure 2-5.6. Module Load Routine (DLZOLI00) 
INPUT 


PROCESS 


From 
Caller 


VSE 
Core Image 





1. Load Directory Entry. 


Library eazy LOAD Macro 


OUTPUT 





BLDLVSA 
VSE 





Directory 
Entry 





VSE ? 2. If phase SVA resident go to 


Load Step 5. 


Indicator 


INITSW BLDLVSA 


Number of 
Core Image 
Library 

Blocks 

Number of A 
Bytes 
Last Block BALR 


phase; either A or B: 









SIP 


scD 
ENDSAVE SCDCWRK 





BLDLVSA 


4. Load phase. 


5. Set phase entry point. 


Core Image 
Library 





DLZOLI00 — Online Initialization CSECT 


Extended Description Routine Label 








1. Caller passes requested phase name INITLODR |INITLODR 
ina work field BLDLN. The output 
of the load call is a VSE 


directory entry at BLDLVSA. 


. Amount' of storage is deter- 
mined by: 


Number of Library Block 
x 1024 + Number of Bytes 
in Last Block. 


INITSW indicates whether 
caller wants low address space 
or CICS/VS to acquire the space. 


B. Write message DLZ058I if 
insufficient core to initialize 
DL/L 





3. Acquire storage for requested 


GETCORE 


Storage Acquisition 
Routine 


(== LOAD Macro 


Extended Description Routine 


BLOLVSA 


Size of 
Storage Requested 


B. Low Address space. 


scD CICS/VS 


Partition 
SCDCWRK 





To 
Caller 
DLZOLIOO 


Label 





4. If low address space is requested LODRLOD 
by the caller SCDCWRK is used 
as the load address. After the 
load macro the end address of the 
module will be in the VSE 
COMREG. SCDCWRK is updated 
with this end address to show the 
new low end of free storage. 

. The phase entry point is passed LODROK 

back to the caller in register 1. 
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Figure 2-5.7. Storage Acquisition Routine (DLZOLI00) Figure 2-5.8. Storage Layout Control Routine (DLZOLIOO) 
INPUT po PROCESS - OUTPUT INPUT From PROCESS OUTPUT 
Caller Four 
Step 6 






COREADJ SIPCOM 
SIPCORE 


1. Align the storage requested to 




















P 
R1 specified alignment desired. Rt a “T —")" 1. Build the storage layout control 
Eas CL NZ table. - 
| ISILISTID _| 
ISIPBLOL 
| o 
Routine 
Ri sip | 
Tid” 2. Acquire storage from CICS/VS; Lu 5 


2. Load the table. 


either low or upper storage. : 5 
BALR CICS/VS Loader 
: a Routine 
SLC PST 
3. Determine if the SLC entry is 
for the buffer pool. 
: am) 
BALR eure 
269 
‘Bi Lstcmopnm 
SLCOPT 4. Load each module in the SLC SCDDBLNT 
SLCOFS table and set the entry points 


SCD 
SCDCWRK 










hier ee SLCLEN ners 
| —) 
SSCDDLICL | 





HNITLODR 


Module Load 
Routine 






25.6 


To 
Caller 





——" 2 5. Update the online free storage 





beginning pointer. ae 
DLZOLIO0 — Online Initialization CSECT DLZOLIOO SCDCWRK 
Extended Description Routine Label Extended Description Routine . Label 
Figure 2-5.4 
Step 7 
1. If alignment is desired the number GETCORE |GETCOREA 
of additional bytes needed to align 
is calculated and put in R7. DLZOLI00 — Online initialization CSECT DLZOLIOO 


Register 1 is updated to show the 
new total number of bytes required. 
. Write message DLZ0581 if insuffi- SLCLOAD |SLCLOAD 
cient storage to initialize DL/I. 
. Write message DLZ0301 if the loaded 
SLC table does not begin with 
*DLZSLC*. 


The SLCOPT flag byte (moved to 
SIPCORE from a storage layout 
control table entry) is used by 
CICS/VS GETMAIN routine. If we 
are doing our own alignment SLCOPT 
is examined to determine whether 
low or high storage was desired by 

the user. 


The table is loaded directly after 
module DLZOLIOO. 


. The user would have specified the 
DLZSLC statement with 
MODULE=BUFFER. 


:Z WOKOES 


. The load point returned in RO by 
Step 2 is adjusted by the additional 
bytes in R7 to get the requested 
alignment. This needs to be done 
only if low storage was acquired. 


. As each module in the SLC table 
is loaded, the need to load flag is 
turned off so that upon return to 
Figure 2-5.4 these modules will not 
be reloaded. 


The SLCOPT for each module, as it 
is loaded, is moved to SIPCORE for 
use by the GETCORE routine. 





nesedQ jo pope 
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Figure 2-5.9. Buffer Allocation Routine (DLZOLI00) (Part 1 of 2) 
INPUT 


From 
Figure 2-5.4 
Step 7 or 
Figure 2-5.8 
Step 3 






BD. 
SCDBFPL 
HDBER ans >I 





—— cm : 


sc SBIF 


D 
SCDDLIDN 


BFPL 


OTBFR BFPLLEN 


NUCAD BFPL 
BFPLSIUN 
scD 


SCDDLIDM DDIR a 
SCDDLIDON DDIRSYM 


DODIRNUMB 


SUBPOOLN DDIRCODZ 





HDBFR Entry 















PST BFPL 
PSTWRK1 
PSTWRK3 BFPLSUIN 






ACBXT 


DMBRBASN 


sc 


D 
SCDDBFPL 


DMB Subpooi 
Directory 


DLZOLIOO — Online Initialization CSECT 





Extended Description 


1. Buffer allocation is done by this 
_ subroutine. The required number 
is set to the user specified total 
in the DLI parameter if the user 

number is smaller than required. 


Write message DLZ060I followed 
by DLZ061A if buffer pool 
allocation is missing or invalid. 


. Write message DLZ1151 if there 
is an invalid DBDNAME in 
HDBFR entry. 





PROCESS 


OUTPUT 


1. Determine how many subpools D 


the user wants. SCDDBFPL 


2. Acquire aligned storage for buffer 
pool prefix, subpool information 
tables, and subpool directory. 


COREADJ SiP 


SIPCORE 





GETCOREA 
Storage Acquisition 
Routine 


3. Format the buffer pool prefix. 


BALR 





BFPL 
BFPLID 
BFPLROCO 
BFPLSUBD 









4. Move information from ACT into 
the buffer pool tables. 





SBIF DMB Subpoo! 


SUBBFND _ 





5. Store buffer sizes in the 
subpool information tables. 


SBIF PST 


SUBBFSIZ PSTWRK1 
SUBDMBCT } | PSTWRK3 





DLZOLI0O0 
Routi 


5. At this point the size of the subpools 
are determined. They are allocated, 
largest first, until the specified number 
is exhausted. Remaining DMBs 
requiring subpools are assigned evenly 
across all existing subpools. If the 
user specified more subpools than 
necessary , an additional pool of 512 
buffer size is allocated for delete 
workspace. 

The subpool sizes are sorted so that SUBTSHFL 
the largest subpool appears first in the 

subpool information table. 











Figure 2-5.9. Buffer Allocation Routine (DLZOLI00) (Part 2 of 2) 


INPUT 


BFPL 


DDIR 
BFPLSUBD DOIRADDR 
IBEPLSUIN _| 


DMB —e come oone i 
SBIF Subpool 


SUBBFHD Directo! 
SUBBFSIZ 
SUBDMB8CT 








SBIF 


SUBBFNO 


ScD 


SCDDBFPL OPTBFR 


Vv 










SBIF 
SUBBFNO 
SUBBFSIZ OPTBFR 






Ri 


DLZOLIO0 — Online Initialization CSECT 


Extended Description 


6. Assign DMBs by corresponding control 
interval sizes. Each DMB is assigned by 
placing its DDIR position pointer into 
the subpool directory. 


It is possible to get message DLZ2621 
if there is a buffer allocation logic 
error. 


. The user specified number of buffers 
is allocated per pool; default is 32. 


PROCESS : 


6. Assign DMBs not yet assigned to 
subpools by HDBFR statements. 


7. Format buffer prefixes and 
allocate 1/0 buffers. 


A. Get aligned core for the 
buffer prefixes. 


|GETCOREA EA 


Storage Acquisition 
Routine 
2-5.7 






BALR 


B. Get aligned core for the 
buffers. 


GETCOREA 


Storage Acquistion 
Routine 
2-5.7 









BALR 


C. Set buffer addresses in the 
buffer prefix. 





OUTPUT 


BIE ACBXT 
SUBDMBCT DMBRBASN 


DMB Subpool 
Directory 


SBIF SIP 


SUBUCPRE SIPCORE 
SUBUCHAI 


[coneany EADJ 


BFPL 


[erpcpRAD | 


SIP 
COREADJ SIPCORE 


BFFR 
BFFRADDR 
Figure 2-5.4 
Step 8 or 
Figure 2-5.8 
Step 4 
DLZOLI00 


Routine 
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Figure 2-5.10. Build Associated DMB Control Blocks (DLZOLI00) 


INPUT From PROCESS OUTPUT 
Figure 2-5.3 
Step 4 


scD 
SCDDLIDM DMBORG 


1. Load randomizing module if DME DA 


organization is HDAM. DMBDALGR J LDMBDAEP 


DACS 
DMBOANME — INITLODR 

BALR Module Load 

Routine 
25.6 
DDIR DMB 
DMBPPRND 2. Determine if buffer pool space 
is required and set indicators. DMBRBASN | | PSiwes' 
P 





ACBXT 
[DMBLRECL | 
[DMBACBLN | 


STWRK3 





To 
Figure 2-5.3 
Step 4 


DLZOLI00 — Online Initialization CSECT DLZOLIOO 


Extended Description Routine Label Extended Description 


1. Before loading the randomizer a DMBLOADRIDMBLOADR 
check is made with all currently loaded 
randomizers. If one with the same 
name as the one we are loading is 
found, the entry point is resolved 
and the actual load is bypassed. 





If the randomizing module is not 
found, the DDIR is updated to 
show DMB initialization failed. 


. If buffer pool space is required, 

- the size of each control interval 
rounded to the next multiple of 
512 is indicated in PSTWRK1 for 


later allocation of the buffer pool. 


Z worDeg 


HeledO jo poy 


UOrL 


LE-Z 
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Figure 2-5.11. PSB Initialization Routine (DLZOLIOO) (Part 1 of 2) 
INPUT PROCESS 


From 
Figure 2-5.4 
Step 4 


PDIR PS 


PDIRADDR 


B 
PSBXPCB —-—- $1. Initialize and relocate PSB 
pointers. 





PSBLIST I 





PCB 


—-——y 2. Relocate the PCB and JCB 
pointers. 















JCB SDB 
[sossym If 
soBTARc _ | 
SDBKEYFD | 


SDBXFL_# 


SDBXPANS . 


| 
SDBEND 


3. Initialize all SDBs belonging 
to a particular JCB. 


PCBEND (80) 


——-P 4 Test for the end of the PCBs 
Ba in the PSBLIST. 


. If not the end, return to Step 1. 


DLZOLIOO — Online Initialization CSECT 


Extended Description 





4. The pointer to the PSBLIST is 
bumped to the next PCB pointer 
entry and processing returns to 
Step 1 if we are not at the last 
PCB. If the index PCB exists and 
has not been relocated return to 
Step 2. 





Extended Description 








OUTPUT 


PSB 


PSBXPCB 
PSBLIST 


SDBXPANS 


DLZOLIOO 


Routine 


JCB 
[JCBSDBND_| 





Label 














Figure 2-5.11. PSB Initialization Routine (DLZOLI00) (Part 2 of 2) 


INPUT PROCESS 


” 5. Connect data bases to PCBs. 


PSIL JCB 


PSILDIRA JCBPRLEN 
PSILDIRN 


DSG 
DSGDMBNO 
DSGDCBNO 
DSGINDA 


Ss 
ispBF3._—_— Il IspsxpepB 
> 6. Connect SDBs to PSDBs. 


DB 

7. Chain Field Exit Routine (FER) 

RaMPARS. | entries and relocate FSB pointers 
DBEND 


| 
SDBXPANS co if PSB has field level sensitivity. 
| 
SDBXFNB | 
SDBXFFSB 
——— eee | 

| 


FERT 


FERTNAME 
FERTPRES 


DLZOLIOO — Online Initialization CSECT 





5. For each DSG belonging to a PCB, 
the offset to the corresponding PSIL 
is found by the offset in DSGDMBNO. 
The DMB number at the corresponding 
DMB to this PSIL is then moved to 
DSGDMBNO. Thus, data bases 
specifically used for this PCB are 
connected. 


PSBRELO {|PCBROUT 


. Return to Step 4 to process the 
next PCB in the PSBLIST when 
there are no more SDBs. 








OUTPUT 


DSG 


DSGDCBA 
| DSGDMBNO | DMBNO 


SDB SDBXP 


SDBDDIR [sosxeror | 
SDBPSDB 
ISDBKEYED | 


PDCA 


PDCAFERT 
FSB 
FSBIVA 

To IFSBFERTA | 


Figure 2-5.4 FERT 


Step 4 
FERTRTEP 





DLZOLIOO 


Routine Label 
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Figure 2-6. Online Nucleus (Overview) (DLZODP) (Part 1 of 2) Figure 2-6. Online Nucleus (Overview) (DLZODP) (Part 2 of 2) 









INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
CICS, DL/I 
Re : 12. Online get storage routine. 
gram (See Figure 2-6.12) 
1. DL/I dummy prescheduling ‘ ; 
and task scheduling routines. - ee oe 618) as 
(See Figure 2-6.1) : 
2. System abnormal and normal = resid elas Say poms 
termination routines. 
(See Figure 2-6.2) 15. Common data base/checkpoint 
3. Task abnormal and normal ee Hee oe 15) 
termination routines. : : 
(See Figure 2-6.3) . Local PSB scheduling routine. 
4. Start of task record writer. See 
(See Figure 2-6.4) . Local PSB unscheduling routine. 
5. Sync point record writer. ise Rigurese 07) 
(See Figure 2-6.5) . Remote PSB scheduling routine. 
6. Online program request a 
handler 7 
re . Remote data base call routine. 
(See Figure 2.6.6) (See Figure 2-6.19) 
. Process system call routine. Remote termination call routine. 
(See Figure 2-6.7) (See Figure 2-6.20) 
- Online trace entry routine. . Remote rescheduling routine. 
(See Figure 2-6.8) (See Figure 2-6.21) 
. Online wait routine. 
(See Figure 2-6.9) 
. VSAM asynchronous exit 
routine. 
(See Figure 2-6.10) 
. Online error message writer. 
(See Figure 2-6.11) 
DLZODP — Online Nucleus DLZODP 
Extended Description Routine Label Extended Description Routine Label 
Caller 
DLZODP — Online Nucleus ° DLZODP 


Extended Description Routine Label Extended Description Routine Label 





DLZODP10 
DLZODP11 
DLZCOMOO0 
DLZCOMO1 
DLZLOCOO 


PROCSYS 


DLZOLTOO DLZLOCO1 


DLZISCOO 
DLZISCO1 


DLZISCO2 
DLZISCO03 
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Figure 2-6.1. DL/I Prescheduling and Task Scheduling Routines (DLZODPOO) (Part 1 of 3) 
INPUT From. PROCESS OUTPUT 


CiCS/VS 
DFHPCP 


DL/I Prescheduling Routine 


1. Return to caller. 


To 
CICS/VS 
DFHCPC 












From 
Figure 
2-6.6 
DL/I Task scheduling routine 
UIB 
2. Save entry registers. 
TCA 
—_— 3. If this is a system call, 
TCADLPAS go to step 7. 
ScD 
[scpaTske [—————— 4. Check task value. = 
SCDCMTI . 
A. Suspend task if at 
maximum value and go to 
Step 9. 
B. Increment active task 
SCDCMTCT : 
count if not maximum. 
DLZODPOO — DL/I Prescheduling and Task Scheduling Routines DLZODPOO 
€xtended Description Routine Label Extended Description Routine Label 


1. Nucleus identifier (*DLZNUCXX*0vrn)| DLZODP | DLZODP 
and module identifier (DLZODPvrnp) DLZODPOO 
are defined here. The level format is 
vrnp; where ‘v’ is the version, ‘r’ is the 
release, ‘n’ is an additional identifica- 
tion number, and ‘p’ is the latest PTF 
that has been applied. e 


DLZODP 








Figure 2-6.1. DL/I Prescheduling and Task Scheduling Routines (DLZODPOO) (Part 2 of 3) 


INPUT PROCESS 

TCA "> 5. Acquire the PST prefix and add 
, it to the active chain according 
PPST to priority. 


SCDPPSTS 





R11 


Parameter ——— 
List 


DSG TCA 


DSGDSGLN _— 
PPST 
PPSTLEN 
PST 
PSTLNGTH 
RIB 
RIBLEN 
RPST UIB 
RPSTLEN 
ScD 
PDIR 

a 





6. Indicate MPS scheduling call for 
PCBM function. 


7. Acquire and initialize task 
PST storage. 


DLZODP00 — DL/I Prescheduling and Task Scheduling Routines 


. Extended Description 


5. 


7. Storage acquired for PST and FLD 
control blocks. Acquires storage for 
RIB and RPST if UIBREMOT=1. 


Routine 





DFHSC TYPE=GETMAIN 


Label 


TASKPPST 
TASKPSTT 





Extended Description 


OUTPUT 


$cD 
41SCDPPAB 
SCDPPAF 


PPSTCB 


PPST 


PPSTIND 
PPSTMPS 
PPSTMSDL 


PPST 


PPSTCA 


PST 
IPSTRPSTA | 


DLZODPOO 


Routine 


TCA 


TCADLII 


ma 





RPST 


RPSTACTA 


TCA 
| TCADLIPA | LIPA 
| TCASCNB | B 





Label 





Wal] Jo Aj10d01g—ye119) 8A] posuaory] 





Z WOT}9Eg 


HesedQ jo pops 


dor 


Te-7 





Figure 2-6.1. DL/I! Prescheduling and Task Scheduling Routines (DLZODPO0) (Part3 of 3) 


INPUT ee PROCESS 


UIB 


8. Return to caller. 


ScD TCA 

' > 9. Suspend task due to maximum 

———— task limit and record time task 
ule suspended. 


= DFHEMP TYPE=ENTRY 
(mp DFHKC TYPE=SUSPEND 


10. When task resumes, stop suspend 
clock and return to Step 3. 


UIBSUSP 





(amp DFHEMP TYPE=ENTRY 


DLZODPOO — DL/I Prescheduling and Task Scheduling Routines 


£xtended Description Routine Label Extended Description 












Caller 






OUTPUT 





scD 
SCDDLIS 
SCDSPCNT 
UIB 

UIB 


DLZODPOO 


Routine 














TCA 








TCA 


Label 


| . Bil 
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Figure 2-6.2. System Abnormal and Normal Termination (DLZODPO2) (Part 1 of 2) 
INPUT cics/vs_ j= PROCESS 
DFHSRP 


1. Enter for abnormal system 


termination. 
CICS/VS 
DFHSTP 


2. Enter for normal termination. 
Go to Step 10 if this is the 
second time entering. 


scD 


SCDDLIPS 
SCDPPFF 
SCDSIND 












> 3. Acquire a dummy PST (for 
a register save areas) to close 
the data base log. Go to Step 
6 if log not active or if 
journaling is active. 


<= DFHSC TYPE=GETMAIN 


ScD 


SCDDBLFW —— 


4. Force write of log buffers. 


DLZRDBLO 









ALR Log Force 
Write 
scD 
SCDDBLCL —--——-—p@ 5. Close data base log. 
SCDDBLSV 
DLZRDBLO 
BALR Log Close 


Routine 


= DETACH Macro 


DLZODPO2 — System Abnormal and Norma! Termination CSECT 


Extended Description Routine Label Extended Description 


1. Entry is made from CICS/VS System |[DLZODP03 |DLZODP03 
Recovery Program on abnormal 
termination. 


Return is back to DFHSRP. 
. Routine identifier (DLZODPO2vinp) |DLZODP02 |DLZODP02 


is defined here. For normal termina- 
tion DFHSTP enters this routine twice. 


. Issue message DLZ067] if there is 
insufficient storage to terminate 


DL/I. 








OUTPUT 


ABSWITCH 
‘FO! 
















DtLZODP 


Routine 


Label 





Figure 2-6.2. System Abnormal and Normal Termination (D LZODPO2) (Part 2 of 2) 


INPUT 













scD 


PDCA 


PDCSYSTT 


ABSWITCH 


TCA 
TCAPCLA 


PROCESS OUTPUT 


| 6. Notify MPS batch programs of 
termination and delete XECBs. 


daa DLZMPCOO 


MPS System 
ABTERM Cleanup 
Fig. 2-198 






7. Return to CICS/VS if normal 


aa STPRENTR 
termination. 


CICS/VS 
DFHSTP 


. 8. If abnormal termination, issue 
message DLZ070i — Abnormal 
Termination Complete. 





9. Write formatted dump. TCA 


TCAPCPI 
== DFHPC TYPE=LOAD 
(==) DLZFSDPO 


BALR Formatted System 
Dump Program 









CICS/VS 
DFHSRP 


DLZODPO02 — System Abnormal and Normal Termination CSECT DLZODP 


Extended Description 


6. MPS batch programs may be active or 
waiting for online MPS processing and 
are therefore notified if CICS/VS 
terminates. Online XECBs defined for 
MPS are also deleted. 








Routine Label Extended Description Routine Label 


DLZODP02 


STPNOXCB 
ABTERM 


STPEXIT3 
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- Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODPO7) (Part 1 of 8) 


INPUT cics/vs PROCESS 


DFHPCP 


— L 1. Cancel WAIT/SUSPEND Routine. 
A 
PSTPREAD TCADLII — — — A. If PST is acquired, 


BFFR 
scb 


B. If PST is not acquired, 
go to Step 1D. 


Read C. Move local PDIR entry 


address to PST if this 
is extended RPSB. 


— cancel any logging in progress 
— cancel uncompleted I/O. 












UIB RPST 


UIBXRPSB RPSTXPSB 


D. Resume a task suspended for 
maximum task limit, if any. 


Goma} TRMSUSPA 





Resume CMAX 
suspend Step 3V 


E. Return to CICS/VS. 


TCA . 
—_—— F. If task is suspended for 
task limit, go to Step 3U. 


G. Return to CICS/VS DFHPCP. 


TRMSUSPA 


Unchain task 
Step 3U 





DLZODPO7 — Cancel Outstanding WAIT or SUSPEND 


Extended Description Routine Label Extended Description 


1. Post logger ECB if logger was doing DLZODP07 


I/O for this task when ABEND occurred. 
DODPO7A 





BFFR 


BFFRLOCK 


ScD 


SCDESECB 


PST 


PSTPSB 


cICS/VS 
DFHPCP 


cics/vs 
DFHPCP 


DLZODPnn 


Routine Label 











Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODPO6) (Part 2 of 8) 


INPUT Cics/vs PROCESS 
DFHPCP 








2. Abnormal Termination 
PPST TCA ure Enty. 


-—-— A. If PST acquired, system not 


PPSTMPS TCADLI abnormally terminating, task 


reeere abnormally ending, then take 
PST TCADLIPA ’ 
IDUMP or formatted task dump. 


PSTPREAD TCADLPAS | iDUMP 


DOS/VSE 
TCASY ABI DUMP 


OR 


= DLZFTDPO 


Formatted 
task dump 


B. Return to CICS/VS 
DFHPCP. 


CICS/VS 
DFHPCP 


DLZODPO6 — Task Abnormal and Normai Termination Routines 


Extended Description Routine Label Extended Description 


2. No formatted dump is produced in DLZODP06 
case of missing PST or insufficient 

storage available. If SYSDUMP=YES 

was specified for the DOS/VS partition, 

an IDUMP is taken instead of the 


formatted dump. 


DL/I system ABEND is reduced to task 
ABENDs. In case of DL/I system ABEND, 
all DL/I tasks are abended by DL/I. For 
each task, DLZFTDP0 is called. 


DLZFTDP0 uses the CICS dump macro 
DFHDC, that dumps DL/I blocks on the 
CICS dump data set. 





OUTPUT 


DLZODPnn 


Routine 


Label 
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Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODPnn) (Part 3 of 8) Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODPO1) (Part 4 of 8) 
INPUT PROCESS = OUTPUT INPUT PROCESS OUTPUT 
























CICS/VS 
DFHPCP PST TCA PST 
wn, D. If task’s PSB cannot be 
3. Task Termination Routine. located, go to Step M. 
UIB UIB 
— A. Write termination trace ———— E. If remote PSB is scheduled, 
entry. issue remote TERM call. 
ore] (om) 
DLZOLTO2 Remote TERM 
Trece Interface 
Entry UIB 2-6.20 
26.8 . 
TCA = F. If this is not a local 
—_—— task i 
B. If task is already SEBSINDD UIBXRPSB PSB, go to Step M. 


terminated, go to 
Step R. 


If task is a system 
task, go to Step O. 


TCADLITC SCDSYACT 


ACB PST 


PSTCLRWT | [ACBEXLST G. Issue TERM call to PSTIOPRM 
call analyzer to 
PSTEXPAD | JACBST PSTLIPRM 


purge buffers. 





TCA 
TCADLII 









PSTLIPRM DMB ; ScD 
TCADLIPA —ww ae ot C. If PST is acquired, PSTPREAD DMBACBAD 
TCADLIPS | [| go to Step D. PSTSABND fama) a 
If PST is not acquired PSTSV2 2-8 


and: PSTSV7 PDIROPTC 


Task is suspended for PSTTABND 





maximum task limit, go PSTXPSV1 
to Step O. PSTXPSV2 
PSTXPSV3 
Task is not suspended, 
ee 
ee Amgen err terete DLZOPFnn DLZODPO1 — Task Abnormal and Normal Termination Routine DLZODPO01 
£xtended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Bina acl 


3A. Routine identifier (DLZODPO1 vp) DLZODPONDLZODPO1 
is defined here. 


This is the entry point for CICS/VS 
if the PCP termination exit indicator 
(TCADLITE) is on and the task is 
about to be detached. 


This is the entry point for the Program 
Request Handler for a TERM or a T 
call. 


If trace is enabled, a task termination 


entry with an ID=X‘F8’ is made 
showing why termination was 
requested, and the DL/I status. 
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Figure 2-6.3. Task Abnormal.and Normal Termination Routines (DLZODP01) (Part 5 of 8) 





INPUT PROCESS 





ScD PST. oY 


SCDCSABA PSTSV1 
SCDDBMPS PSTSV2 





DLZODPO1 — Task Abnormai and Normal Termination Routine 


Extended Description Routine 


3H. A wait may be done at this time for 
the logger if it is not available. 


31. 





PDIR scD _———> H. Write TERM log record to CICS/VS 
ScD 


SCDCSABA [—_——————.> I. 


journal or DL/I log. 


jum DFHKC TYPE=WAIT 


(am) DLZDLAOO 


Calt 






analyzer 
2 


Write a CICS/VS synchronization 
point record if using CICS/VS 


journal. 


|DLZODPO5 | LZODP05 


Write sync 
point record 
26.5 






J. Unschedule local PSB. 


DLZLOCO1 


(am) 






Unschedule 
focal PSB 
2-6.17 


Label Extended Description 





PPSTACT SCDCDTA 


PPSTIND TCA 











Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODP01) (Part 6 of 8) 
INPUT PROCESS OUTPUT 


PST 


K. Save number of PI resources 


owned and dequeue program 
isolation resources. 












SCDCSABA 
SCDDBMPS 





SCDPI 


UIB 
UIBRSTAT 


RPSB, free storage. 


==) 


VV, 


If storage acquired for extended 





DLZODP11 


Free storage 
2-6.13 
PPST M. Return PST prefix to free 


oe 
eee 
PST 
TRM 
os 


N. Record DL/I call statistics. 









RPSTACCT 


= DFHEMP TYPE=ENTRY 





DLZODPO1 — Task Abnormal and Normal Termination Routines DLZODP01 


Extended Description Routine Label Extended Description Routine 


3K. Number of PI resources owned 
are saved for CMF Hook 
Statistics. 


NOPIDEQ 





SCD 
ISCDPPAB | 


TRACETAB 


He 





Label 
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Figure 2-6.3. Task Abnormal and Normal Termination Routines (DL 
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Extended Description 


INPUT PROCESS 


O. Free FLD and PST storage and 
preschedule task. 


TCA 
TCADLIBA a 
TCADLII 
TCADLIPA 
TCADLISP PST 
DFHSC TYPE=FREEMAIN 
TCADLISE PSTFLD 
TCADLPAS | SCD 
TCAPCTA SCDACTBA 
TCA ree 
> P. If this is a system task, go to 
TCADLII Step R 
TCADLPAS : 
a 


SCD TCA 


Q. Resume any task waiting for 
maximum task limit. 


DFHKC TYPE=RESUME 


TCA POCA R. If terminating task is MPS mirror, 


TCAABIPM | |[PDCBPCAT go to MPS normal/abnormal task 
cleanup routine. 
TCAMPS ScD | 


TCASYABI SCDPDCA DLZMPCOO 


MPS cleanup 
2-19 






DLZODPO01 — Task Abnormal and Normal Termination Routines 


Routine Label Extended Description 








ZODPO1) (Part 7 of 8) 





s OUTPUT 


TCA UIB 
CADLII UIBRCODE 
TCADLIPA 


TCADLIPS 
TCAFCTR 
TCADLPAS 








DLZODP01 


Routine Label 








Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODPO01) (Part 8 of 8) 


INPUT PROCESS 


S. Set task termination complete 
indicators and return to 
CICS/VS DFHPCP. 













PPST 


PPSTTCA 


— — —p T. If task’s PPST is found in search 
of PPST, go to Step M. 


ScD 
SCDPPSTS 


U. Take a dump and go to Step O. 


=) DFHDC TYPE=PARTIAL 


/~_————~ V. Remove task from SUSPEND chain 
and return to caller. 


ScD TCA 
SCDDLISC TCADLII 
SCDSPCNT TCADLIPA 


DLZODP01 — Task Abnormal and Normal Termination Routines 


Extended Description 


Extended Description Routine Label 


TRMFREPO 
TRMSUSPA 


OUTPUT 











TCADLISD __| 
ITCADLITE 






CICS/VS 
DFHPCP 


TCA 


TCADCNB 
TCADCSA 





ISCDSPCNT_| TCADLIPA _ | IPA 





Caller 


DLZODP01 


Routine Label 
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Figure 2-6.4. Start-of-Task Record Writer (DLZODP04) 
INPUT PROCESS 


From 
Figure 
2-6.1 
Step 25 


1. Save registers and establish 


addressability to CSA and 
system TCA. 
_ TCA -—~-— — (pp 2. If Start-of-Task record is 
already logged, go to Step 5. 


3. Get journal control area. 


(am DFHJC TYPE=GETJCA 
R11 


—-—~ FY ‘4. Write Start-of-Task record. 


5. Restore registers. 


RO 





DLZODP04 — Start-of-Task Record Writer 


Extended Description Routine Label 











1. Routine identifier DLZODP04vmp IDLZODP04 |DLZODP04 
is defined here. 


3. Acquire task’s JCA and establish 
JCA addressability. 


4. Dummy record is written to system 
log and CICS Start-of-Task indicator 
is set in it to mark start-of-task on 
system log. 


. Restore save area address in register 
13 and reload registers 14 through 
12 from the save area. 


Extended Description 








OUTPUT 


Caller 
Registers 


System TCA 





Ri1 


JCA Address 


CICS/VS System Log 


CICS/VS Start-of-Task 
Record 


To 
Figure 


Step 26 


DLZODP 


Routine Label 
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Figure 2-6.5. Sync-Point Record Writer (DLZODPO5) (Part 1 of 2) 

















INPUT PROCESS canoe OUTPUT 
From 
Figure 
2-6.3 
Step 9 
or From 
Calter 
Registers 
1. Save registers and establish — Ls 
addressability to CSA and 
system TCA. 
RO R13 
CSA 
TCA 
— —¥Ff 2. If caller was DFHSPP (CICS/VS 
Sync-Point Program), go to 
Step 5. 
CICS/VS System Log 
3. Issue a sync point. oes 
TCA 
(ms) DFHSP TYPE=USER 
Caller 
Registers 
C———h > 4. Restore registers and return. ; 
RO [TcazLuwT | 
[severe] 
PDIR TCA . 
— — —p 5. Build a Deferred Work Element (DWE). Ceascsa __] 
(ax) 
DFHSC TYPE=GETMAIN 
DLZODPOS5 — Sync-Point Record Writer DLZODP 


Extended Description i ipti Routine Label 


1. Routine Identifier DLZODP05S vrnp 
is defined here. 


5. DWE is not built for read-only PSB, 














Figure 2-6.5. Sync-Point Record Writer (DLZODPO5) (Part 2 of 2) 





INPUT y= PROCESS 
TCA ; 
—— —. B» 5. Insert DWE at end of DWE chain. 

7. Return. 

From 

DFHSPP 

R14 
DFHSPP 
Retu . 7 
adeese  —__—° 8. Restore Task Termination 
environment. 

9. Return. 


DLZODPO5 — Sync-Point Record Writer 


Extended Description 





Extended Description 


6. Store address of DWE entry point 
of DLZODPOS in DWE for deferred 
processing by CICS/VS. 


8. Set up registers and PST save area 
to complete task termination and 
then return to DFHSPP. 








OUTPUT 










R10 


" DWE ADDR 







DWE @ End of Chain 







NEW DWE 
|_DWESVMID | 
| DWESVMNA| 
| DWERSAA | 












R14 





DFHSPP Return 
Address 


To 
DFHSPP 
R6 R10 
System DWE ADDR 
TCA 
R13 RQ 
[seve area __] [est apo J 
Calier Jes 
Registers [tcarctr | 
Sh 
PSTSV1 + 12 
DFHSPP Return 
Address 
To 
Figure 
26.3 
Step 10 


“DLZODP 


Routine Label 
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Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 1 of 7) 


INPUT 





(See 
note) 









TCA 


TCASVMDL [(~—_———_— & 


TCA A 


CT 
Treauea_] [actum |g 
CSA 
scD 
vie 


TCASYAA 
TCAVIBAQ 





R1 


User Parm — 
List 





PROCESS 


1. Online Program Request Handler 


A. Set up addressability and 
indicate DL/I active to CICS/VS. 


qua DFHIC TYPE=ENTER 


B. Start ‘Time in DL/I’ clock. 


(mm DFHEMP TYPE=ENTRY 


C. If UIB is not acquired, get 
storage for system and user 
UIB. 


== DFHSC TYPE=GETMAIN 


D. Reset UIB trace flags and 
HLPI indicator. 


E. Save function code in UIB 
and reset UIBRCODE. 


NOTE: DLZPRHOO is entered from the Language Interface Module, DLZEIPOO, DLZBPCOO, or DFHMIR. 


DLZPRHOO — Online Program Request Handler 


Extended Description Routine Label 


Extended Description 


1. Module identifier (DLZPRHOOvinp) {| DLZPRHOO | DLZPRHOO 


is defined here. The level format is 
vp, where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional ident- 
ification number, and ‘p’ is the latest 
PTF number that has been applied. 








OUTPUT 


TCA 


CASVMID 


TCA 
UIBFLAGI 
UIBHLPI 


TCASCNB 
TCASCTR UIBSCHD 
TCAUIBAQ UIBTERM 


UIBTSKID 


UIB 


UIBFUNC 
UIBRCODE 


DLZPRHOO 


Routine Label 














Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 2 of 7) 


INPUT 
scDdD 


SCDIND2 ~.____ 4 


SCDSYSAB 


TCA 
fTeapun_ > ————— 


PPST ST 


P. 
PPSTIND __|| PSTLIPRM as 
PPSTMPS PSTPREAD 


scD . 


SCDLOWER 
SCDUPPER 





DLZPRHOO — Online Program Request Handler 


A. 


Extended Description Routine 


Error returned is X‘0808’ — DB 
call when not scheduled. 


Write message DLZ260I for 
invalid number of parameters 
or message DLZ2611 for invalid 
call parameter. 





T 
P 


PROCESS OUTPUT 
F. If DL/I is able to process requests, VIB 
go to Step 2. 
UIBFLAG1 
G. Set data base call for trace. 
Go to Step 4. 
2. Validate data base calls. 


Save HLPI and language indicators 
if task is scheduled. UIB 


|UIBFLAG1 | 


If task is not scheduled, indicate 
scheduling error. Go to Step 4. 


Verify that the call parameters 
and the number of call parameters 
is valid. 


If an error is detected, write 
message number and abnormally 
terminate task. Go to Step 5E. 


. Call common data base call 


routine. 


DLZCOMO1 


Process data 
base call 
24.12 


= 







DLZPRHOO 
Labe Extended Description Routine 


t 
ESTFUNC 
RHDBO 
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Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 3 of 7) 
INPUT PROCESS 


PST 

—— —F F. Ifa task is to be abnormally 

terminated, go to Step 5E. 
G. Go to Step 5B. 


3. Validate scheduling calls. 


ScD VIB 


A. Verify that the call parameters 
and the number of call parameters 


Ce ee 
[uiemPs | is valid. 
TCA 
B. If an error is detected, write 
CADLIBA : 
message and abnormally 
terminate the task. To go 
Step 5E. 
R1 
3 
Ee 


C. Return address of UIB to user 
if UIB pointer is in parameter 
list. 


List 


TCA UIB 


TCADLIBA UIBLEN 


D. Provide default PSB name if none 
aad is specified. 

ACTPPTR 

PDIR 

E. If PSB name is invalid, indicate 
scheduling error. Go to Step 4. 
SCD 


User Parm 
List 





DLZPRHOO — Online Program Request Handler 


Extended Description Routine Label Extended Description 


3A. 


3B. Write message DLZ260I for 
invalid number of parameters. 


Write message DLZ26iI for 
invalid call parameters. 


. Error returned is: 
X‘0801’ — PSB not in PSB directory 
X‘0802’ — Task not prescheduled 
X‘0803’ — Task already scheduled 
X‘0806’ — PSB name too long or too 
short 

















OUTPUT 






UIBFLAG1 
UIBPSB 
| UIBSCHD | 








User PARMS 


UIB pointer 


VIB 


R3 


Address of 
PDIR entry 


DLZPRHOO 


Routine 










TCA 


Label 








Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 4 of 7) 


INPUT 


PDIR 


| ppiRoPTc [> G. Indicate type of PSB in UIB. 


PDIRREM 
PDIRXPSB 
















PDIRCODE 
PDIREXEC 











scori | _UIB 
TCA 






ACT PDIR 
IACTPCNT _| IPDIRBAD | RBAD 
ACTPPTR PDIROPTC 





scD 


SCDASE 


PROCESS » OUTPUT 


- F. If PSB NAME=SYSTEMDL, process 
system scheduling call. Go to 
2-6.7. 


UIB 


UIBFLAG1 
UIBREMOT 


— —  H. Indicate scheduling error if illegal 
MPS is rescheduling call. Go to 
Step 4. 


—-—-p i. If PSB name is not in program's 
ACT entry or if PSB failed to 
initialize, indicate scheduling 
error. Go to Step 4. 


—-—-p J. Call task scheduling routine. 
= 


Task scheduling 
26.1 






DLZPRHOO — Online Program Request Handler : DLZPRHOO 


Extended Description 


Routine Label Extended Description Routine Label 


3H. Error returned is X‘0809’ — Illegal 


MPS scheduling call. 


31. Error returned is: X‘0805’ — PSB 


initialization failed, or 


X‘0806’ — PSB not authorized 


for program. 
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Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 5 of 7) 


Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 6 of 7) 


INPUT PROCESS OUTPUT INPUT PROCESS 


K. Call PSB scheduling routine. 5. 






SCD nae 
Gum DLZCOMOO 
Common PSB ITcADLT _| 
scheduling 
2-6.14 
UIB PPST 
UIBRCODE [~~ “% L. If there is no scheduling error, PPSTA 
go to Step 4. Set scheduled aie —— 





A. If no PST is acquired, set 
scheduling error return 
code. Go to Step 5C. 





TCA 


TCA UIB 


[Tcapiece_| UIBPCBAL | 
UIBRCODE | | 






CSA 
CSACTDA 





TCA 


TCASVMDL 


aT 
ee 


PSTPCPGM 


cs TCA 
indicator. 
TCADLIBA | | UI8DB 
4. Handle scheduling errors. Ueatadead ea 
SCD UIBRCODE 
SCDCSABA | | UIBSCHD 





B. If PST is acquired, free 
PPST and PST. 


== DLZODPO1 


Free PPST/PST 
26.3 






C. Go to Step 5B. 


DLZPRHOO — Online Program Request Handler DLZPRHOO DLZPRHOO — Online Program Request Handler 


Extended Description Routine Label 


Extended Description - Routine Label Extended Description Routine 





Process termination calls. 


A. Call task termination routine. 


es 


DLZODP01 

Task 

termination 
26.3 


B. Set up return code and call 
trace routine. 


= 





| DLZOLTOx _| LZOLTOx 


Online 
trace 
routine 
26.8 










C. Restore registers and return. 


Gam DFHIC TYPE=EXIT 


D. Set up ABEND code. 


Label Extended Description 


RETEXIT 
ECICNTER 





OUTPUT 


Cc 


1B 
IBFLAG1 


IBTERM 


4 


CA 


TCAFCTR _| 


TCA 


CASVMID 


PST 


PSTERCOD 
PSTTABND _| STTABND 


DLZPRHOO 


Routine 
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_ Extended Description, . Routine 





Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 7 of 7) 
INPUT PROCESS OUTPUT 








——————»~~ £. Terminate task abnormally. 


PST 
K PSTABIND 
ScD PSTERMSP 


Error Message 
routine 


SCDCSABA PSTSABND 
PSTSV7 





From a 
DL - eam DFHPC TYPE=ABEND 


Action 
Modules 





PST ScD 


PSTABIND 
PSTSABND 


TCAPCAC 


F. Set DL/! system ABEND indicator 
and go to Step 5E to abnormally 
terminate this task. 


DLZPRHOO — Online Program Request Handler DLZPRHOO 


Label 
PRHABEND 
PRHSYSAB 


Extended Description Routine Label 








- 
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Figure 2-6.7. Process System Call (DLZPRHOO) (Part 1 of 4) 
INPUT PROCESS 
SCDEXT 


SCDASE SCDEPASS 
SCDSIND2 rey 


SCDEXTBA DSG 
DSGDSGLN 
PST 


PSTLNGTH 





User Call List 


TCA PPST 
scb 
PST 





scD 


1. If ‘SYSTEMDL’ call, schedule 
system scheduling. 


ma 


. lf CMXT function, adjust CMXT. 
Go to Figure 2-6.6, Step 8. 





OUTPUT 


scD TCA 
SCDSIND2_| | TCADLII 
PST PST 


Ss 
PSTCODE1 PSTPRIAD 


DLZSCHDL 


Task Scheduling 
Routine 
246.1 


PSTDSGA 






PPST 


PPSTCA 


Go to Figure 2-6.6, Step 8. 


User Cail List 


scD PST 
SCDCMXT PSTUSER 
PSTSEGL 


PSTSEG 
PSTLIPRM 





Nae cae 3. If TSTR function, load the 


TCAPCLA 


User Cali List 


initialization call. 





requested trace module and issue 


== DFHPC TYPE=LOAD 


ScD 


SCDTRACE 
SCDTRCNM 


jam DLZTRCAL TYPE=START 


Go to Figure 2-6.6, Step 8. 


DLZPRHOO — Program Request Handler CSECT 
Extended Description Routine Label 


1. A task requesting services through the PROCSYS 
system calls must have been previously 

scheduled by password with this 

special schedule PCB SYSTEMDL 

call. If the password does not match, 

the caller abends via DFHPC with code 

DLPV. 


Important indicators set are: 
SCDSYACT — system interface 
active 


termination 


TCADLITE 
required 
system task 


TCADLPAS 
scheduled 
TCADLISD — task scheduled 


Exit is taken to scheduling routine to 
get a PST and initialized upon return. 


PSTSCALL (system call in progress) 
is set and return is made to caller. 


. The value passed by the user PROCMXT 


validated and moved to the SCD. 








DLZODP 
Extended Description Routine Label 


Without MPS, data is moved to the 
user call list area for work space. With 
MPS this would cause a storage pro- 
tection exception. To avoid this, an 
area in the PST (PSTLIPRM) (in the 
CICS/VS DL/I partition) is used as a 
work area. The MPS batch program 
request handler (DLZMPIO0) then 
moves the data from the PST into 

the user call list. 


If the new request is zero, negative, or 
exceeds MAXTASK indicate an 
invalid request error (set 08 in 
TCAFCTR). 


PROCTSTR 


. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 


If tracing is already active set X01’ 
in TCAFCTR. 


If the load fails, set X‘O2’ in TCAFCTR. 


If GETMAIN fails during initialization, 
set X‘04’ in TCAFCTR. 




















Figure 2-6.7. Process System Call (DLZPRHOO) (Part 2 of 4) 


INPUT 


TCA 


SCDCSABA TCADLII 


SCDTRACE 
SCDTRCNM 





TCADDLII =—- 


PPST P 


ST 
SYS 
| 


DDIR SCDDLION 


| DDIRSYM | 
DDIRLEN 





DDIR D 


MB 
== 
DDIRCOD2 | {DMBPPRLN 


ACBXT 


DMBACBAD 
DMBACBLN 





DLZPRHOO — Program Request Handler CSECT 


Extended Description 


4. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 


If tracing not active, set X‘O1’ in 
TCAFCTR for invalid request. 


. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 


. The DMB name passed by the caller 
is used to scan the DDIR. 


If this is not an MPS task, data (VSAM 
return code and ACB address) is moved 
into the user call list for the caller. 
With MPS, a work area is used in the 
PST (PSTLIPRM) to build the data 
from the PST to the user call list. 


If the DDIR is not found, set X‘08’ 
in TCAFCTR to indicate an invalid 
request. 


rT ______.> 6. Locate DDIR entry. 





PROCESS OUTPUT 


7 4. \f TSTP function, issue 


termination call to trace module 
and free storage. ScD 


SCDTRACE 
(===) DLZTRCAL TYPE=STOP 
SYS 
| sysBEGIN | 
SYSFLGS 


(==) DFHPC TYPE=DELETE 


Go to Figure 2-6.6, Step 8. 


5. lf STRT/STOP function, initialize 
DBD parameters by first verifying 
the caller is scheduled. 


PST 


PSTUSER 
| PSTLIPRM | 





7. Verify that the ACB is usable. 






SYS 





TESTCB Macro 


a) TESTCB Macro 


DLZODP 


Routine Label Extended Descrip ti Routine Label 








7. The ACBs are checked for open/close PROCACB 
status. The ACB address (2 if HISAM 

organization) and whether the ACB 

is open or not is put into the user call 

list (or if this is an MPS task, into the 

PST). Reference to fields within either 

of these two areas is by the system call 


parameter list DSECT (DLZSYSDS). 


If the DDIR failed to initialize, set 
X‘02’ in TCAFCTR. 


If TESTCB request fails, set X‘03’ 
in TCAFCTR. 
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. Figure 2-6.7. Process System Call (DLZPRHOO) (Part 3 of 4) 
INPUT PROCESS 





ScD PST 
SCDCSABA PSTDSGA 
DDIR D 


MB 
DDIRAODR DMBORG 


9. If STRT function, go to Step 14. 


——-¥ _ 8. Initialize the dummy DSG. 





DDIR 


SYS : 
=> 10. For STOP function, check the 
DDIRCODE | {SYSELGS validity of the call. 


DDIR SY. 


s 
> 11. Stop scheduling this DMB and 


wait for any users currently 
SCD scheduled. 


SCDEXTBA 
DFHKC TYPE=WAIT 


DSG 
PSTDSGA DSGDMBNO 
PSTDMBNM 
scb 12. Call DL/I Buffer Handler to 
mark buffers empty. 
PSTSV1 SCDDDBHO 
(=m) 


BEPL BALR Buffer Handler 


Module 
BFPLSUBD 
BFPLSUIN 
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13. Go to Step 15. 












DDIR 


DDIRCODE 


_—_— > 14. For STRT function, check 
validity of call. 


sYS 
SYSFLGS 


ScD SCDEXT _ ; 
— — ~~ 15. Wait for asynchronous logger 


if open and active. 
SCDDBLOP Pen and act 


a) DFHKC TYPE=WAIT 


Routine Label 


DLZPRHOO — Program Request Handler CSECT 


Extended Description 











8. 


10. If the ACB is not open, set X‘01’ to 
indicate the STOP call is invalid. 


12. Set X‘04’ in PSTFNCNT to indicate 
‘mark buffers empty request to 
buffer handler’. 


The DMB number is used to index 
into the subpool directory to get the 
subpool number for this DMB. If there 
is no subpool number, bypass calling 
the buffer handler. 


Set X‘O1’ in PSTFNCNT to indicate 
‘close DMB request’ to open/close 
module upon return from buffer 
handler. 


. If this data base is not stopped or if PROCSTRT 
the ACB is open, X‘01’ in TCAFCTR 
to indicate the STRT call is invalid. Set 
X‘09’ in PSTFNCTN to indicate ‘open 
DMB request’ to the open/close 
module. 





Extended Description 





Figure 2-6.7. Process System Call (DLZPRHOO) (Part 4 of 4) 


OUTPUT m= INPUT PROCESS OUTPUT 
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s 1} SCODLICL PSTSV1 
oo [> 16. Call DL/I Open/Close Module. Sys 


DSGDMBNO DDIR SYSVSRET 


DSGINDA DDIRVSRT 





(==) DLZDLOCO 


BALR Open/Close 
Module 
2-14 






PST 


SYS 

YSBEGIN PSTLIPRM 

hee Stee > 17. Return. PST 
SYSFLGS 





DDIR SCDEXT 


DDIRCODE SCDEFECB 


To 
Figure 


Step 8 


PST ; 








DDIR PST 


DDIRCODE PSTFENCTN 


DLZODP DLZPRHOO —~ Program Request Handler CSECT DLZODP 


Extended Descri 


Routine Label Extended Description : Routine 





16. The open/close module issues and 
SVC2 and CICS/VS loses control for 
the duration of the call. 


The VSAM return code in the DDIR 
upon return from the buffer handler, 
is moved to the user call list area (or 
if this is an MPS task, into the PST) 
which is mapped by DLZSYSDS — 
the system call parameter list DSECT. 


. If this is an MPS task, PSTSEGL and 
PSTSEG must be set up for MPS batch 
PRH (DLZMPI00) to move data from 
PSTLIPRM to the user call list area. 
PSTUSER already contains the address 
of user call list area. 








/PSTSEGL | 
SYSCLEAR |PSTSEG | 


Routine 





Label 
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Figure 2-6.8. Online Trace Entry Routine (DLZOLTOO) (Part 1 of 2) 









INPUT From PROCESS OUTPUT 
Figure 
26.6 
oxy 1. Save registers and establish 7 
. Save registers an ablis 
air oe 
us 2. Set up PSB name, type of PSB and 7A 
eS ; aps : sos ge 
DL/I identifier, and write first 
schedule call trace entry. 
(am) DFHTRACE DLI 
UIB 
3. Convert schedule call return 
7 “" code to character code. Go to 
Step 9. 
UIB 
4. Save registers and establish luistrRcsv | 
addressability. [ernosy | 
PST TCA 
5. Set up DBD name or ‘*ERROR**’ 
PCB and DL/I identifier, and write first 
|oBPcBDBD [—=—————"_ data base call trace entry. 
j= DFHTRACE DLI 
UIBRCODE a 
PCB 6. Set up call functions, return code, 
and status code. Go to Step 9. 
DLZOLTO0 — Online Trace Entry Routine DLZOLTOO 
Extended Description Routine Label Extended Description Routine Label 


1. Trace entries are written to the 
CICS/VS Trace Table or auxiliary 
trace data set. 





DLZOLT00 


DLZOLTO1 





Label 
Bil al . 





Figure 2-6.8. Online Trace Entry Routine (DLZOLTOO) (Part 2 of 2) 
INPUT 


PROCESS 


From 
Figure 
2-6.3 or 
26.6 


7. Save registers and establish 


Ole addressability. 


TCA 
VIBRCODE | (TCADLI a———S,_ 8. Convert reason for scheduling 
UIBFLAG1 TCADLPAS termination to character code. 
PPST TCADLIPA 
PPSTIND TCAZSPSR 


PST 






9. Write trace entry. 


~~» DFHTRACE DLI 


VIB 


luistrcsv --y-———wg"’ 10. Reset trace flags and restore 


caller’s registers. 


11. Return to caller. 


DLZOLTOO — Online Trace Entry Routine 


Extended Description Routine Extended Description 


Caller 





OUTPUT 


UIB 


UIBTRCSV 


VIB 


UIBFLAG1 


DLZOLTOO 


Routine 


Label 
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Figure 2-6.9. Online Wait Routine (ODLZOWAIT) (Part 1 of 3) 
INPUT PROCESS 


From 
Caller 





1. If CMF hook request, go to Step 8. 
If suspend request, go to Step 11. 








scD TCA 


ISCDCSABA CASYAA 










R3 


ECB 


ScD PDCA 


—- —e 
SCDPDCA PDCADECB 


CICS/VS 1/0 wait. 


ScD PST 
SCDEXTBA | |PSTCODE1 
SCDDBLOP |. 

SCDEXT . 


SCDESECB 





is open and busy. 


CSA PST 

Ut___-& 2. save registers and establish 
R2 addressability. 
Address 


3. If ECB is not posted, indicate task 
not ‘currently active’ and issue 


If resume request, go to Step 13. 


» 4, Wait for formatted dump if buffers 
are being dumped. Return to Step 3. 


Gaed DFHKC TYPE=WAIT 


L_ _4, 5. wait for the logger if the log 


== DFHKC TYPE=WAIT 


terminated. 


6. Check if DL/! abnormally 


<p DFHPC TYPE=ABEND 


DLZOWAIT — Online Wait Routine 


Extended Description Routine Label 


2. Routine identifier (DLZOWAITvrnp) |DLZOWAIT | DLZOWAIT 
is defined here. The level format is 
vmp; where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 

applied. 






























. Anon-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SSYSTEMDL, password) to 

schedule itself so that it may issue 

system calls: CMXT, STRT, STOP, 

TSTR, and TSTP. 






‘Currently active’ has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPSTACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 
processing non-scheduling DL/I calls 
(non-scheduling calls being calls 
processed by the call analyzer and 
other DL/I action modules). Since 
CICS/VS can schedule another DL/I 
task during a CICS/VS operation 





OUTPUT 


User Save Area 


aller 
Registers 


TCA PPST 


CATCEA PPSTIND 


ScD 


SCDCDTA 





TCA 


CATCEA 


DLZOWAIT 


Extended Description 


(for example, I/O) PPSTACT is turned 
off until return is made to the caller of 
DLZOWAIT because there can only 

be one task marked as ‘currently 
active’ by definition. 


. Serialization of the logger resource is 


another job of the online nucleus. 
Since control was lost during the 
wait, another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. Return is then made to Step 2 
to recheck that this task’s ECB is 
posted and to reissue the wait again 
if it isn’t. 





Routine Label 


OWAITRET 








Figure 2-6.9. Online Wait Routine (DLZOWAIT) (Part 2 of 3) 
INPUT PROCESS 
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ee > 
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ScD CSA 
SCDCSABA CSACDTA. 9. 
TCA 
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; 10. 
11, 
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ScD PDCA 


SCDPDCA PDCADECB 


DLZOWAIT — Online Wait Routine 


Extended Description Routine 


7. Reset non-scheduling task to 
currently active status asit 
was on entry. 








Restore original environment. 


Return to caller. 


Save registers and establish 
addressability. 


Write indicated CMF hook 
record. 


Gan DFHEMP TYPE=ENTRY 


Return to caller. 


Save registers and establish 
addressability. 


Suspend current task. 


Gam DFHKC TYPE=SUSPEND 


. Wait for formatted dump if 


buffers are being dumped. 
Return to Step 3. 


ap DFHKC TYPE=WAIT 


Label Extended Description 


DLZCMFHK 
DLZSUSP 
DLZRESUM 


OUTPUT 


PPST 


PPSTIND 
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Caller 
Registers 


> 
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User Save 
Area 


Caller 
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TCA 
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DLZOWAIT 


Routine 


scD 


ISCDCDTA 


Label 
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Figure 2-6.9. Online Wait Routine (DLZOWAIT) (Part 3 of 3) 
INPUT PROCESS 


$cD 


PST 

— — > 15. Wait for the logger if the 
log is open and busy. 
SCDEXT 


SCDESECB 
DFHKC TYPE=WAIT 





scD 
scpsinp2 Kr -—- ——? 16. Check if DL/I abnormally 
terminated. 


(uaa DFHPC TYPE=ABEND 


User Save 
Area 


TCA 
TCADLI 7_————r¢° 17. Restore original environment. 
registers 





18. Return to caller. 


DLZOWAIT — Online Wait Routine 


t Extended Description Routine 


Label 
15. See “Extended Description” 
comment for Step 5. 
16. OWAITRET 


Extended Description 





Caller 


OUTPUT 


TCA 
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PPSTIND | SCDCDTA 


DLZOWAIT 


Routine 


scD 
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Figure 2-6.10. VSAM Asynchronous Exit Processor (DLZOVSE X) 
INPUT From PROCESS 


VSAM 
Module 
scD 
SCDCSABA 
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IKQIOA 
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VSAM 
Parameters 


RPL 
Address 
CCB 
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EXLOC 
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CICS/VS wait. 


CCB 
Address 





1. Establish environment. 


TCA PST 

TCADLII PSTPREAD 

TCADLIPA | VSAM : ae ; 
Parameters not ‘currently active’ and issue 


OUTPUT 










R13 
R6 
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TCA User Area 


PPST sc 


TCA 
TCATCEA 





aod DFHKC TYPE=WAIT 


SCDEXT 


SCD 


is open and busy. 
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ee 
2. Start CMF 1/O wait clock. 
=. DFHEMP TYPE=ENTRY 
D 
t—_—_—“,, 3. Indicate the non-scheduling task 
eI 


4. Wait for the logger if the log 


TCA 
TCATCEA 


DFHKC TYPE=WAIT 


5. Stop CMF 1/O wait clock. 


=) DFHEMP TYPE=ENTRY 


TCA 


— — —} 6. Return to VSAM. 


‘ 


DLZOVSEX — VSAM Asyncronous Exit Processor 


* Extended Description Routine _Label 


1. Routine identifier (DLZOVSEXvmp) |DLZOVSEX 
is defined here. 


. Anon-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SYSTEMDL, password) to 
schedule itself so it may issue system 
calls: CMXT, STRT, STOP, TSTR, 
and TSTP. ‘Currently active’ has a 
special meaning. There may be many 
DL/I tasks active at this time. There- 
fore, DL/I uses a bit (PPSTACT) in 
the PPST to make it easy to spot (in 
a dump) the single DL/I task that is 
currently using the call analyzer and 
other DL/I action modules. 


Since CICS/VS can schedule another 
DL/I task during a CICS/VS operation 
(for example, I/O) PPSTACT is turned 
off until return is made to the caller 
of DLZOVSEX because there can only 
be one task marked as ‘currently 
active’ by definition. 













PPST scD 


PPSTIND SCDCDTA 


To VSAM 
Module 
IKQIOA 
DLZODP 
Extended Description Routine Label 


4, Since control was lost during the 
wait another job may have activated 
the logger. To assure serialization, this 
routine must wait until the logger is 
done. 


. Reset non-scheduling task to OWATNLOG 
- ‘currently active’ status as it was 
on entry. 
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Figure 2-6.11. Online Error Message Routine (DLZERMSG) (Part 1 of 2) 
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Caller 


SCDCSABA TCASYAA 


1. Establish environment. 


scD TCA 


cS 


CSACDTA 





TCA 


Step 4. 
PPST 


TCA 
TCADLIPA PPSTIND 


= RMSGSV1 


RMSGSV2 


error message. 
PARM LIST 





I 


2. If this task has no PST go to 


3. Save the ‘currently active’ status 


- 
PST ee 
and indicate this is no longer 
the currently active DL/I task. 
PST 
| | 4. Acquire storage and construct 


DLZMMSGT 
Message Text Construction 





OUTPUT 


Calter 
Registers 


csal{ 
12 
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aD 
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wo 
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System TCA 
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SCD 


SCDCDTA 
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© RMSGAPR 
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RMSGSAV 










aa 5. Write message to TD destination 
MT and m r console. 
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eee GENIORB WTODATA 
fam o> 
= DFHTD TYPE=PUT 

DFHSC TYPE=FREEMAIN 


DLZERMSG — Online Error Message Routine 


Extended Description Routine Label 


1. Routine identifier (DLZERMSGvmp) |DLZERMSG | DLZERMSG 
is defined here. The level format is 
vmp, where ‘v’ is the version, ‘r’ is 
the release ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 
applied. 


. If there is no PST the message number 
will be in the parameter list which is 
pointed to by R1. 


. ‘Currently active’ has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPSTACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 
processing non-scheduling DL/I calls 
(Non-scheduling calls being calls 
handled by the call analyzer and other 
DL/I action modules). 


Tasks like the MPS Batch Partition 
Controller can have a PST and can call 
DLZERMSG while not being the 
currently active task. 


DLZODP 


Extended Description Routine Label 


Since CICS/VS can schedule another 
DL/I task during a CICS/VS operation, 
(for example, I/O) PPSTACT is reset 
by DLZERMSG for the duration of 
the write because there can only be one 
task marked as ‘currently active’ by 
definition. 


. The GETMAIN output buffer is 


needed by CICS/VS transient data 
services and IORB required by 
DOS/VS EXCP. 


DLZMMSGT is used to construct text 
for messages with message numbers 
from 1 — 255. 


ERMSGPUT 




















Figure 2-6.11. Online Error Message Routine (DLZERMSG) (Part 2 of 2) 
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DLZERMSG — Online Error Message Routine 


Extended Description Routine Label! Extended Deseri 





6. Since control was lost during the DLZERMSG; ERMSGERT 
I/O another job may have activated 

the logger. To assure serialization, 

this routine must wait until the 


logger is done. 


. Reset ‘currently active’ status to 
the value it was on entry. 


To 
Calier 
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DLZODP 


Routine 
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Figure 2-6.12. Online Get Storage Routine (DLZODP10) Figure 2-6.13. Online Free Storage Routine (DLZODP11) 


INPUT . PROCESS s OUTPUT INPUT PROCESS OUTPUT 
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> 1. Increase requested length for 
status information. 
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em DFHSC TYPE=GETMAIN 


3. Issue GETVIS if GETMAIN is 
greater than 65,521 bytes. 


eum DFHSC TYPE=GETVIS 


4. If error, process GETVIS 
error. 


(up DFHPC TYPE=ABEND 
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R6 
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DFHSC TYPE=FREEMAIN 
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3. issue CICS/VS FREEVIS if GETMAIN 
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DFHSC TYPE=FREEVIS 
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4. If error, process FREEVIS error. 


DFHPC TYPE=ABEND 
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5. Return to caller 
6. Set storage address to user 


storage. Cailer 
7. Return to caller. 
Caller 
DLZODP10 — Online Get Storage Routine DLZODP10 DLZODP11 - Online Free Storage Routine DLZoDP11 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


4. Convert return code to printable 
form. Write DLZ0381 message. 
Abnormally terminate task. 


4. Covert return code to printable form. 
Write DLZ038I message. Abnormally 
terminate task. 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 1 of 7) Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 2 of 7) 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 3 of 7) 
INPUT PROCESS OUTPUT 
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C. Go to Step 35 (return to caller). 


15. Successful remote. 
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Z OUMJOA ‘enue SOT SA/SOGI/TG 7-7 


17. Local PSB scheduling. 








DLZLOCOO 


~ | Local scheduler : 
2-6.16 


18. If successful, go to Step 20. 


DLZCOMO00 — Common PSB Scheduler DLZCOMOO 


Extended Description Routine Label Extended Description Routine Label 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMO0) (Part 4 of 7) 
INPUT PROCESS 
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UIB 
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C. Go to Step 35 (return to 
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C. 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMO00) (Part 5 of 7) 
INPUT PROCESS OUTPUT 
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— — —p 23. If remote PSB scheduling is 
successful, go to Step 27. 


24. Error handling. 
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2.6.17 - 
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caller). 
27. Successful remote. = 
A. Indicate remote PSB 
scheduled in status 
byte. 
DLZCOMO00 — Common PSB Scheduler DLZCOMOO 
Extended Description Routine Label Extended Description Routine 


Label 








Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 6 of 7) 


INPUT PROCESS OUTPUT 
UIB rth | 
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list address. 
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C. Clear JCB addresses in 
PCBs. 


28. Extended RPSB storage 
acquisition. 


A. Calculate storage required 
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C. Calculate storage required 
for local PCB addresses. 
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Storage VIS 
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UIBXSTOR 


DLZCOMO0 — Common PSB Scheduler DLZCOMOO 


Extended Description Routine Label Extended Description Routine 


27C. JCB addresses in local copies of DBPCBJCB 
remote PCBs are used to determine 
if a data base call is to a local or 
remote PCB. 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO). (Part 7 of 7) 
INPUT PROCESS OUTPUT 
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30. Return schedule call successful. 
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32. Write scheduling log record. 
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__ __ _ 33. Write open log record. 
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35. Schedule call return. 
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DLZCOM00 — Common PSB Scheduler DLZCOMO00 


Extended Description Routine Label Extended Description Routine Label 
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Figure 2-6.15. Data Base Call Handler (DLZCOMO01) (Part 1 of 6) Figure 2-6.15. Data Base Call Handler (DLZCOMO1) (Part 2 of 6) 
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call to remote data base call 
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3 





PPST 
DBPCB 
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Figure 2-6.15. Data Base Call Handler (DLZCOMO01) (Part 3 of 6) 


INPUT PROCESS rms (p OUTPUT 


























12. Reset active task indicators scD 
and go to Step 5. 
PPST 







PPSTIND 
PPSTACT 






UIBFLAG1 — TT 
UIBXRPSB 
UIBREMOT | 


13. A. If extended RPSB is scheduled, 
go to Step 24. 


B. If remote PSB is scheduled, 
go to Step 20. 


14. Pass call to Cail Analyzer. 


= Step 35 



















scD 
Reset active task indicators. SCDCDTA 
PST PPST 
[PPSTIND 
Sana . 
PSTTABND 16. If error during CHKP, go to “ 


PSTPCT2 
PSTCHKP 


Step 5. 


DLZCOMO01 — Data Base Call Handler DLZCOM01 
Extended Description Routine Label Extended Description Routine Label 


13. 


14. CHKP call with local PSB 
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Figure 2-6.15. Data Base Call Handler (DLZCOM01) (Part 4 of 6) 
INPUT PROCESS OUTPUT 


ea 17. If CICS/VS journal is being used, issue 
sync point. ; 
ISCDNLOG! | (==> 


PSTSV2 








DLZODPOS 


Sync point 
exit routine 
26.5 — 





SCD : 
sara ame 18. If program isolation is being used, 
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= DLZPUR 


PPST "PST 
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indicator and go to Step 5. 
PST 20. Issue CICS/VS sync point. 
cee 
ScD 
eam 
Sync point 
exit routine 
2-6 
PST : PST 
21. Point PST to remote PSB and 


PSTRPSTA PSTPSB 
reschedule remote PSB. 


RPST 


RPSTRPSB = DLZISCO3 
ISC Checkpoint 
2-6.21 
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UIB 
 weicone 22. If error, zero PCB address list. 
23. Go to Step 5. = 
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DBPCB 
RPST 
| RPSTXPCB | 
25. Pass call to Call Analyzer. 
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DLZCOM01 - Data Base Call Handler DLZCOMO1 


Extended Description Routine Label Extended Description Routine 








Label 





Wal 30 4:20d01g-—qopr238p] posuscy] 


| 
| 
| 
| 





Z wond90S 


elodO jo poy 


uOor 


LS-7@ 





Figure 2-6.15. Data Base Call Handler (DLZCOMO1) (Part 5 of 6) 
INPUT PROCESS 


PST 


PST. — — S& 28. If error on local CHKP set status 
in user’s PCB and go to Step 5. 


PSTLIPRM 
DBPCB 


DBPCBJCB 
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Step 5. 










DBPCB i 29. Substitute remote PSB address 
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SCD 
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PSTRPSTA 


=, oe 30. If program isolation is being 
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PPST 
— — » 31. If not an MPS task, reset CHKP 
indicator. 








PST 


PSTRPSTA 


RPST 


M———_——*, 32. Point PST to remote PSB and 
reschedule remote PSB. 
oe | 
26.21 
UIB 


fuisicove = —————"/+_s 33. If error, zero PCB address list 






and go to Step 5. 
— — § 34. Zero JCB address of remote PCBs 
and go to Step 5. 
PDCA 
[pocapece | SCDPDCA esas 35. Wait if buffers are being dumped 
PST SCDESECB or logger is busy. 


PSTSV1 SCDDBLOP 
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SCDEXTBA 


| DLZOWAIT _| 


Online wait 
2-6.9 
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DLZCOMO01 — Data Base Call Handier 


Extended Description Routine La Extended Description 
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Figure 2-6.15. 
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SCDDLICT 


RPST 


RPSTXPSB 















Data Base Call Handler (DLZCOMO01) (Part 6 of 6) 
PROCESS OUTPUT 


PST —__ —~ —% 37. Point PST to local PSB and pass 
call to Call Analyzer. 


PSTSV1 PST 

PSTRPSTA ez DLZDLAOO PSTPSB 

PSTLIPRM PSTIOPRM 
2-8 


PDIR 


PDIRXPSB 
PST 





User I/O Area 
38. If not MPS task, move data to 


user’s I/O area. 
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UIB 
UIBFLAG1 J 


39. Return to caller. 





PST . Cailer 
—-—- 40. Store address of SCD and PST 
in PST work area and set up 
data move parameters. 
41. Go to Step 38. 
DLZCOMO1 — Deta Base Call Handler DLZCOMo1 
Extended Description Routine Label Extended Description Routine Label 
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Figure 2-6. 16. 
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Local PSB Scheduling Routine (DLZLOCOO) (Part 1 of 4) 


PROCESS — 


1. Save caller’s registers. 
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SCDDBMPS 
SCODPI 


2. If PSB in conflict with itself, 
go to Step 15. 


DDIR 
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DDIREXCL 
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exclusively, suspend task. 
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Suspend for 
Intent conflict 


PSIL 
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suspended for intent conflict. 
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Intent check 
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DLZLOCO0 — Local PSB Scheduling Routine 


Extended Description 
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Routine Label Extended Description 
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Figure 2-6.16. 
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Local PSB Scheduling Routine (DLZLOCOO) (Part 2 of 4) 
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scheduled PSBs. 
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7. Reset intent conflict flags, set DMB 
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use count. 
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DLZLOCOO - Local PSB Scheduling Routine 


Extended Description 
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Figure 2-6.16. Local PSB Scheduling Routine (DLZLOCOO) (Part 3 of 4) 
INPUT PROCESS 


Figure 2-6.16. Local PSB Scheduling Routine (DLZLOCOO) (Part 4 of 4) 
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PST 


PSTSV1 


12. Restore entry registers. 
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14. Segment intent check 
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CSA Create Duplicate PSB subroutine. 
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2-6.12 
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DLZLOCOO — Local PSB Scheduling Routine 
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DLZLOCOO DLZtLOCO00 — Local PSB Scheduling Routine DLZLOCOO 
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Figure 2-6.17. Unschedule Local PSB Routine (DLZLOCO1) (Part 1 of 2) 
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DLZLOCO1 - Unschedule Local PSB Routine 


Extended Description Routine Label Extended Description 
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tasks from reuse. 
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. Figure 2-6.17. Unschedule Local PSB Routine (DLZLOCO1) (Part 2 of 2 
INPUT PROCESS 
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Extended Description Routine Label Extended Description 


Caller 


OUTPUT 


PDIR TCA 


PDIROPTC TCASCSA 


PDIRSCHD TCASCTR 





DLZLOCO1 


Routine Label 








Wal Jo Ayiedoig—jeyi9}¥yQ] posuscyy] 





Z UOT}D0¢g 


neisdO jo poms 


uor 


1I9-Z 











Figure 2-6.18. Remote PSB Scheduling (DLZISCOO) (Part 1 of 2) 
INPUT PROCESS OUTPUT 
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Figure 
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PSB scheduling routine 
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ml RPST 1. Build parameter list for scheduling call. Sareui 
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ScD Ole 2. Initialize remote interface block (RIB). 
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_ — 3. If ISC module is available, start 
measuring time in remote system. Go to 
CICS/VS ISC. 


= DFHEMP TYPE=ENTRY 


CICS/VS ISC 
module 





_— 4. If schedule call was not successful, stop 
measuring time spent in remote system. 
Go to Step 6. 
eae DFHEMP TYPE=ENTRY 
DLZISCO0 - Remote PSB Scheduling DLZISCOO 
Extended Description Routine Label Extended Description Routine Label 
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Figure 2-6.18. Remote PSB Scheduling (DLZISCOO) (Part 2 of 2) 
INPUT PROCESS OUTPUT 
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PST 


RIBDOLTR PSTSV1 


RIBFCTR 
RIBPCBAL 


RIB 


RIBCALL 


RIBFUNC 


RIBISCI 
RIBLNKNA 


RIBLNKSH 





Wal 3° Ayredoig—jepiejeyy] posuscr] 


B. If serious error, request ABEND 


7 
—_—___ 
RIBFCTR RIBPETn 
TCA 
TCADLII 
TCADLISE 
after message. 
PST 
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DLZISCOO - Remote PSB Scheduling DLZ1ISCcOO 


Extended Description Routine Label Extended Description Routine Label 


6A. ABEND if PARM list is invalid, 
function is invalid, XECB cannot 
be found, PSB cannot be 
rescheduled following a check- 
point, or internal error. 


6C. Write message DLZ0331. 


c9-7 





Figure 2-6.19. Remote Data Base Call Routine (DLZISCO1) (Part 1 of 2) Figure 2-6.19. Remote Data Base Call Routine (DLZISC01) (Part 2 of 2) 
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a RIB Tp & Return code. 
2. Initialize remote interface block (RIB). ceCrEe| 
— 9. Return to caller. 
10. Remote data base call errors. 
PST RIB PST RIB 
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5. Start measuring time in remote system. 
Go to CICS/VS ISC module. 


= DFHEMP TYPE=ENTRY 
DFHISP 
CICS/VS ISC 
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RIBISCI ———-—p 6. Stop measuring time if call was not 


successful. Go to Step 10B. 
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DLZISCO1 - Remote Data Base Cail Routine 
Extended Description Routine Label 
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RPSTISC2=A (RIB) 
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Extended Description 
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Routine 
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{SC0331 
write message 
26.18 







B. Abnormally terminate task. 


i C. If function is invalid, return ‘AD’ 
status in PCB. 


D. Write message. 


E. Abnormally terminate task. 


DLZISCO1 - Remote Data Base Call Routine 


Extended Description Routine Label Extended Description 
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PSTABEND 
PSTERDT1 
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Figure 2-6.20. Remote Termination Call Routine (DLZISC02) 
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INPUT Figure 2-6.3 gm PROCESS 
PST RPST Yq 1. Build parameter list for TERM call. 
ee 
UIB TCA = 
2. Set sync point requirement flag 

3. Start measuring time spent in remote 
ScD CSA i ——19_ system. Go to CICS/VS 1SC module. 
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Gane) oF ewe TYPE=ENTRY 
CICS/VS ISC 
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Pstsvi | ————— “> 4. Stop measuring time spent in remote 
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DLZODP. 


DLZiISCO2 — Remote Termination Cali Routine 
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OUTPUT 
RPST 


RPSTISC1 


RPSTISC2 
RIB 


RIBISCO 


RIBSYNC 
PST 


PSTSV1 


DLZODP 


DL2ZtSCO2 


Routine Label 





Wal J° Ayiodoig—epiaseyy] posusoyy] 











Z SUMNJOA ‘JenueW! NOT SA/SOCI/1Id 9-Z 





Figure 2-6.21. Remote Rescheduling Routine (DLZISCO3) (Part 1 of 2) 
INPUT PROCESS 









From 
Figure 
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Checkpoint call. 





PST SCD 1. Write DL/I checkpoint taken 





Build parameter list for 
scheduling call. 


PSTRPSTA 


RPST 


RPSTISC2 


8. Indicate sync point not requested 
and checkpoint call in progress. 


CSA 8 4. Go to CICS/VS ISC module. 


scD eo te 
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CSAOPFLA 





CICS/VS ISC 
module 


5. Build parameter list for 
reschedule call. 


DLZISCO3 - Remote Rescheduling Routine 


Extended Description Routine Label Extended Description 
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2-6.11 
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CHKPSCHD is: 

DC X‘80’ 
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Figure 2-6.21. Remote Rescheduling Routine (DLZISCO03) (Part 2 of 2) 


INPUT PROCESS OUTPUT 
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os 6. Start measuring time spent in remote 
system. Go to CICS/VS ISC module. 
a) DFHEMP TYPE=ENTRY 
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Module 
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checkpoint error. 
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Caller PST 
9. Set error code if checkpoint error occurs. 
PSTERDT1 
em | piziscoo | | PSTTABND | 
Write message 
: 2-6.18 
10. Abnormally terminate task. 
DLZ!SCO3 - Remote Rescheduling Routine DLZISCO3 
Extended Description Routine La Extended Description Routine 
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Figure 2-7. DL/1I Online System Termination (DLZSTPOO) 


INPUT 


CSAOPFL 
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From 
CICS/VS 
STP 


PROCESS 


1, Locate entry point of DL/I 
termination. 


2. Call DL/I termination. 


=m DLZODPO2 
DL/t System 
Termination 


3. Return to CICS/VS system 
termination program via 
DFHPC TYPE=RETURN. 





DLZSTPOO — DL/! Online System Termination CSECT 


Extended Description 


1. Control is passed from CICS/VS 
System Termination Program (STP) 
because of DLZSTPO0s presence in 
the program list table (DFHPLT). 


Routine __Label 





DLZSTPOO |DLZSTPOO 





Extended Description 


| OUTPUT 


DLZSTPOO 





Routine 








Figure 2-8. Call Analyzer (DLZDLAOO) 
INPUT 








PROCESS 





From Caller 
(See Note) 


R13 vs 


R1 
remor] ( 


1. Save registers and initialize. 


2. Encode function: 


Parameter — — —_— 
List 

|Function _| A. Normal Function — 
PCB-ADDR 


Figure 2-8.1. 





B. Pseudo function — 


Figure 2-8.3. 


3. Update JCB trace and PCB 
segment name, level and key- 
length. Restore registers. 


DLZDLAOO — Call 


Extended Description Routine Labei 


Note: DLZDLA00 is called from the 
program request handler (DLZBNUCO- 
DLZPRHBO) in a batch system, from 
(DLZODP-DLZPRHOO) in an online 
system, or if at termination, it is called 
from either the application program 
control (DLZRRC00-DLZPCC00) or 
from online task termination 
(DLZODP-DLZODP01). It is also 
calied from DLZDXMTO. 


2. The function (first parameter in list) 
is encoded. If no valid function is 
found, ‘AD’ status is returned. 


' Normal functions are GU, GN, GHN, 
GHU, GNP, GHNP, DLET, REPL, 
ISRT, ASRT, and CHKP. 


Pseudo functions are GSCD, UNLD, 
and TERM. 


Extended Description 


Return to 
Caller 





OUTPUT 


DLZDLAOO 


Routine 


PSTSEG 
PSTSEGL 





Label 
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Figure 2-8.1. Call Analyzer — Normal Function (DLZDLAOO) Figure 2-8.2. Call Analyzer — Validate SSAs (DLZDLAO00) 
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JCB and level table. 








. Find user’s I/O area. 





. CHKP Function: 









A. — If log not active, return 


to caller. 


















. Validate SSAs: 


































SDB | 
SDBXFL —d 


Level Table eee wee ae oe 2 


LEVLEV 
LEVNUPC 


Level Table 3 


SSAs. 





SDBPHYSC 


6. For qualified SSAs: 


INPUT PROCESS OUTPUT INPUT From Figure g™ PROCESS OUTPUT 
From Fig. 2-8.1 Step 4 
2-8 step 2A 
SDB 
Es ——— 1. Find SDB corresponding to SSA. 
_ tT _ A. If SDB has field level sensitivity, JCB 
. Validate PCB address. Update T set indicator in JCB. 


. Find corresponding level table. 


Fill pseudo entries for gaps in Level Table 


| LEVNUSDB | 
LEVNUPC 


PLEVF3) 


B. Unload Routine: 4. Fill level table with data from 
SDB 
Figure 2-8.3. 
5. Validate command code. Level Table 





LEVF4 


Fate 2a Figure 2-8.4 (Part 3 of 3) 
. Perform key checking for loading. 
. Validate sensitivity. 
R 
. Check length for variable length i Figure 28.1 
segments. Step 5 
—-— . Call DLZDLOCO to open data sets. 
A. If at least one segment has field 
level sensitivity, call DLZCPY10 
(Figure 2-40). roma 
9. Call proper action module 
(DLZDLROO, DLZDDLEO, or DLZDLDOO). 
DLZDLAOO — Call DLZDLAOO 
Extended Description Routine Label Extended Description Routine Label 
If no valid PCB address is provided, For variable length segments, 2-byte 
abend code ‘476’ is returned. The field in the user I/O area is compared 
JCB and PCB are updated and the to the maximum length and to the 
_ second part of the level tables keyt keyoffset. If it is greater or BECOL Oe DLZDLA0O 
cleared. smaller, ‘V1’ status is returned. 
Extended Description Routine Label Extended Description Routine Label 


If no I/O area is provided, ‘AB’ 
status code is returned. 


If log is not active, return to caller 
with ‘XH’ status code in the PCB. 
The function call is ignored. 


Purge all buffers. 
All SSAs in the call are checked. 


Key checking is done for load mode 
and the last SSA of an ISRT call. 
For PROCOPT=LS and for HISAM, 
the root key is compared to the 
previously loaded root. Status code 
‘LB’ indicates invalid sequence. 


Sensitivity checking is done for 
ISRT, DLET, and REPL calls. 
Violations return ‘AM’. Extra 
checking is done for DLET and 
REPL calls, if successful GH call 
was executed before ‘DJ’ status. 





When the data base that the PCB 
references is not open, DLZDLOCO 
is called to open all data bases 
related to this PCB. 


. If field level sensitivity indicator is 
set, exit is made to DLZCPY10 to 
map the user view to the physical 
view. Only done if ISRT, REPL, or 
Retrieve (called on behalf of ISRT) 
action modules will be executed. 


For GET calls, DLZDLROO is called. 
For DLET/REPL calls, DLZDLDOO 
is called. For ISRT/ASRT calls in 
load mode, DLZDDLEO is called 

for all segments except for HIDAM 
root, where DLZDLRO0 is called. 
For ISRT not load mode, 
DLZDLR00 is called for all 
segments except HISAM root, 
where DLZDDLEDO is called. 


DLZDLAO1 |DLBUNLD 


SDBLOOP 
SDBLOOP1! 


_ |LDCHCK 











. When the segment named specified in 


the SSA cannot be found in the SDB, 
‘AC’ status is returned. 


A. Flag SDBFLS is on in field SDBXFL 
if SDB has field level sensitivity. 
Flag JCBFLS is set on in field 
JCBLVT to indicate at least one 
segment in call has field level 
sensitivity. 


. When a hierarchy error is detected, an 


‘AC’ status is returned. 


. The levels corresponding to gaps in the 


SSAs are filled with data from the 
previous call. For loading, no parent 
level may be empty. ‘LD’ status is 
returned. 


. Extra checks are made for DLET and 


REPL calls. When no GH call was 
previously made for this SDB, a ‘DJ’ 
status is returned. 














5. Valid command codes are C,D, F, L,N, 
Q, T, U, V, and X. The status code for 
invalid command code is ‘AJ’. For D 
call and no path sensitivity, the status 
code is ‘AM’. 


NOTDORR 
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Figure 2-8.3. Call Analyzer — Pseudo Function (DLZDLAO1) (Part 1 of 2) 
INPUT PROCESS 









From Fig. 
2-8 Step 2B 


Parameter > 1. Fora GSCD call, provide address 
List of PST and SCD. 


From Figure 
2-8.1 Step 3B 


— —*f, 2. Foran UNLD, TERM, or CHKP call, 
process all PCBs in PSB and: 


PSTPSB 


Call DLZDDLEO for load. 


PSBLIST A. 
B. 


C. Call DLZDBHOO to purge 
buffers. 





Clear flags and pointers. 


D. Fora CHKP call, go to Step 4. 
For an UNDL call, DLZDLOCO is 


called to close data bases in 
system (PSTOCALL). 


3. Restore registers. 


DLZDLAO1 — Call 


Extended Description Routine 





Extended Description 





OUTPUT 





PSTBLKNM PSTUSER 


SOD addr 
PSTADDR 












PSTDBPCB 
DBPCBLEV 











JCBLEVIC 
LEVTTR 


JCBNOSAM 


Return to 
Calter 


DLZDLAOO 


Routine Label 








1. Input to the GSCD call is function 
and I/O area address. DLZDLAO1 puts 
the SCD and PST addresses in 
PSTBLKNM.Program request handler 
moves it to the I/O area. 


. The TERM call is issued in online to 
end a task. The UNLD call is issued in 
batch to end the batch program. 


A. If the UNLD call is made for load 
mode, DLZDDLEO is called to 
write the last records for HSAM 
and HISAM. For HISAM and 
index data bases, a record is 
written with FF keys. 


Flags and pointers are cleared 

so that the PSB can be used by 
another task. If program isolation 
is active, clear all enqueue indi- 
cators in all level table entries. 


All user buffers are written to 
the data base now. RSTBLKNM, 
DMBNM, and ACBNM are 
cleared. PSTPGUSR flag of 
PSTFNCTN is set. 





3. If an error occurs during the purge 
of the buffers, an ‘XD’ status code 
is returned in the PCB. 


Figure 2-8.3. Call Analyzer — Pseudo Function (DLZDLAO1) (Part Z of 2) 
PROCESS 






INPUT 










PST 
pstesa 


PDIR 
PDIRSILA 







PSIL 


PSILDIRA 


DDIR — 
DDIRCODE 


SCD —- 


| SCDDBLOP 

















PST 
PSTUSER 


PDIR 


PDIRSYM 


ScD —_— 


| SCDREENT | 
SCDDBFLW 
















DLZDLAO1 — Call 


Extended Description 


All DDIR entries are scanned to 
see if an error occurred (bit 
DDIRNOSE X‘04’ in byte 
DDIRCODE set on) during purge 
of the buffers. 


If the log is the CICS journal, 
checkpoint record is not written, 
but a CICS synch point is. 


The DL/I Logger is entered 
twice; Ist to move the check- 
point record to its buffer, and 
2nd to force-write the check- 
point record. 


On return from the logger, the 
checkpoint indicator (bit 
PSTCHKP X‘04’ in byte 
PSTPCT2 is set on) to notify 
the program request handler to 
issue the checkpoint message. 


4. For a CHKP call, get 
address of DDIR and 
number of entries. 


Routine 





If error occurred during 
buffer purge, go to 
Step 4H. 


If log is CICS journal, 
go to Step 4E. 


Build the log checkpoint 
record. 


Get address of DL/I Logger. 


OLZRDBLO 





DB Logger 
2-16 


Set checkpoint indicator. 


Set PCB status code. 
Return to Step 3. 
Set PCB error status code. 


Return to Step 3. 





Extended Descri 


OUTPUT 





scD 
SCDCWRK 


PST 
PSTPCT2 


PCB 
OBPCBSTC 


DLZDLA0O 


Status code of ‘blanks’ is set 
in the PCB indicating successful 
completion of the CHKP call. 


Status code of ‘XD’ is retumed 
in the PCB indicating an error 
occurred during checkpoint 
processing. 





Routine 





Label 
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Figure 2-8.4. Call Analyzer — Validate Qualified SSAs (DLZDLAOO) 
INPUT From Figure jf PROCESS 


2-8.2. (Part 1 
of 2) Step 6 






PSDB PDB 


aes | 


Sec. Lists 


eed 


SDB 


= 1. For qualified SSAs. 

A. If SDB indicator set for field level 
f sensitivity, find FSB corresponding 
| to SSA. 

I B. Find FDB corresponding to SSA. 
C. Encode operator. 
J 


D. Load Mode: compare key in SSA to 
key - feedback. 


SDBXFL Cay SQ aoe oe 





SOBXPANS 
FSB 






DLZDLAOO — Cail 


Extended Description , Routine Label Extended Description 


1. For errors in qualification, format ‘AJ’ 
status is returned. 


A. Flag SDBFLS is on in field SDBXFL if 
SDB has field level sensitivity. If an 
FSB is not found, or if the FSB is not 
marked as an allowable field, status 
code ‘AK’ is returned in PCB. 


. Valid field names are any normal field 
of the segment, the XDFLD name 
(if the secondary processing sequence 
is used). For a concatenated segment 
field, names of the logical child and the 


destination parent are valid. ‘AK’ 
status for invalid field name. ‘AC’ 
status if /CK or /SX is used. 


. Invalid operator returns status code 
6 ? 
AJ’. 


. If qualified SSAs are specified for 
loading, the key has to correspond to 
the key-feedback area, otherwise ‘LD’ 
status code is returned. 





OUTPUT 











Level Table 


LEVF3 
LEVMEMBR 


Level Table 


LEVMEMBR 






iz 





Return to 
caller 


DLZDLAOO 


Routine Label 
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Figure 2-9. Retrieve (DLZDLROO) (Part 1 of 2) 
INPUT PROCESS 





From 
Analyzer 


DB/PSB 


stathid Baas > 1. If unqualified call, go to step 3. Other- 


wise, go to Figure 2-9.1 to try to use 
previous position. 


. If GU with unqualified root, go to 
Figure 2-9.4 to determine start key for 


to analyze qualified calls and continue 
at step 5. 


at step 5. 


Prefix 


cai Seni Eee 


>4. Get first DB segment. 





DLZDLROO — Retrieve Module 


Extended Description Routine Label 


1. 1/O information: 


®@ The Position block includes RBA of 
segment (HD) or lrec (HS), RBA of 
previous and next positions (HD), 
offset to segment from begin lrec 
(HS), concatenated key, level, block 
number (HSAM), and block number 
and RAP number of current RAP 
(HDAM). RAP = root anchor point. 


The DB/PSB Description block 
includes segment and data set 
descriptions, data base specifications, 


sensitivity, and HDAM randomizing 
facility. 


The Status Information block includes 
prior status codes, segment status, 

and (for output) pseudo abends 

(801 and 800). 


The Call Information block includes 
SSA and call type. 


Processing starts with initialization. 
Level of previous call stored in 
LASTLEV. 





searching. Otherwise, go to Figure 2-9.5 


> 3. if not a GN, go to step 4. Otherwise, do 
unqualified GN call analysis and continue 


Extended Description 


OUTPUT 


Status 
Info. 


OLZDLROO 


Routine Label 

















Figure 2-9. Retrieve (DLZDLROO) (Part 2 of 2) 
INPUT PROCESS 


DB/PSB = > 5. For ISRT calls: 


Descrip. Position 
A. Determine positioning 
and move segment to user. 


DMBSEC 


B. Call DLZGETS (Fig 2-9.7) 
to. make retrieved data 
available to user. 


6. Exit. 


Prefix 


DLZDLROO — Retrieve Module 


Extended Description Routine 


5. DLZSSA is called, if necessary, to find 
insert position for key. Control is then 
passed to DLZISRT to prepare position 
information in the SDB for INSERT. 
Return is to DLZGETS (Figure 2-9.6). 


PSTSEG is address of data, PSTSEGL 
gives its length. 


For IRST calls, DLZGETS does only 
housekeeping (no data moving). 
DLZGETS will pass control to 
DLZRETN and DLZDLR1 to exit. 


For a segment with logical relationship, 
DLZGETS will call DLZLOGR for 
data move/insert positioning. 


. If call type is GET, go to Analyzer. 
If it is ISRT, go to Load/Insert. 


Extended Description 


To Analyzer 
or Load 
Insert 





OUTPUT 





PSTSEG 


PSTSEGL 


DLZDLROO 


Routine 


Label 
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INPUT 


From Fig. 
2-9 step 1 


position, 
call 
info. 


DLZDLROO — Retrieve Modute 


Extended Description 


1. KEEPIT=1 indicates: try to use 
previous position. KEEPIT=0 indicates: 
DLZLTW has been left. Other values 
have special meanings. (Entry point 
when R15 = 0.) 


2. DLZKDTE is invoked via DLZSSA which 
is called by return to DLZDLRO and 
back to DLZLTW. Logically, this is part 
of DLZLTW as indicated by KEEPIT=1. 


Qualified SSA test: After entering 
several routines, return to DLZLTW 
entry LTWSSACA, LTWSSAF, or 
LTWSSAG. 


Lowest level found valid is stored in 
JCBLEVIC. 


. Set code for exit: Entry UNQLA in 
DLZSSA for GU or ISRT, entry 
SSAEVALH for GN. 


DLZPCHK loads buffer location of 
previous segment into register 6 (except 
for HD or GN calls) and, for HD, loads 
available SUBPOSN positions. 








Figure 2-9.1. Retrieve — DLZLTW Routine (DLZDLROO) 


Figure 2-9.2. Retrieve -DLZKDTE Routine (DLZDLROO) 
OUTPUT INPUT om PROCESS 
From Caller 


PROCESS 



















== > 1. Find FDB for SSA field. If 





General 


Info. Info. found, continue with step 2. 


be —ee— 


. Set KEEPIT=1. if not found, set status code 


LEV [ome AK (error in call) and return. 


2. Check previous call’s hierarchical 
path against SSA‘s. Loop through 
levels. Check segment type, and for 
qualified SSA, check key feedback area 
(Figure 2-9.2). 





2. If KEEPIT=1, use key feedback 
area to test against field 
value in SSA. Otherwise use 








segment. 
FeO ISNT ALR eer se ave Field > 3. If necessary turn on : 
and go to step 6. LC) Value | Y 
RQ = 
4. If discrepancy at root level, set LEVSSA 
KEEPIT=0 and go to step 6. L > 4. Test segment or key feedback 


Rel. 


Operator 
R15= 
LEVMEMBR 


; area for acceptance. 
5. If discrepancy at lower level, set 


KEEPIT=0 and go to step 6. 





If GN call, position to previous 
segment. 


SOBPOSN 





A To Caller 
. Exit. 


To Fig. 2-9 


DLZDLROO DLZDLROO — Retrieve Module 


Routine: Label Extended Description Routine Label 


Extended Description Routine Label Extended Descri 








5. Set exit code for entry SSAEVALL in 
DLZSSA. 


2. If logical relationship, build concate- 
nated segment. If variable length, 
build data. 


. If qualification is on key, relational 
operator is greater than or equal to, 
and key is less than or equal to, SSA. 


. If accepted, R15=0, otherwise, 
R15=4. 





OUTPUT 


vu 


cB 


le 


LEV 


LEVF2 


a 
= 
a 


DLZDLROO 


Routine 





Label 
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Figure 2-9.3. Retrieve — DLZPCHK Routine (DLZDLROO) 
INPUT From Caller PROCESS 





. 


1. If GN call, HD: 


T 
| Move SDBPOSC to CURTTR and go 
| to step 3. 
L 


> 2. Position to segment: 


LEV — —p A. Interface to Buffer Handler, 


PSTBYLCT. 


B. Find SDB from segment code. 
C. Get pointers from segment. 


3. Exit 


DLZDLROO — Retrieve Module 


Extended Description Routine Label 


2. For HSAM, more than 1 PCB: restore 
position. 
For HISAM: take care of control 
interval splits. 


B. If not found (segment not 
sensitive), turn on LEVDLET and 
go to step 3. 


. For HS, relational record number 
and offset to SDBPOSC. SDBPOSN 
already posted by DLZSETL. 


For HD, post twin pointers. 


Clear dependent positions 
(SUBPOSP, SDBPOSC, and 
SDBPOSN). For HD, post child 
pointers. 


For HD logical relation with 
inverted structure, post child 
pointers. Subroutine called by 
DLZPSTA. 


* Clear SDBPOSP, SDBPOSC, 
and SDBPOSN in preceding sibling 
SDBs unless multi-processing. 


Extended Description 





OUTPUT 


CURTTR 





To Caller 


DLZDLROO 


Routine Label 











Figure 2-9.4. Retrieve — DLZTAG Routine (DLZDLROO) 


From Fig. P 
INPUT 28 Step 2 ROCESS 









P 1. If qualification is on key 
and operator is greater than 
or equal to SSA, position on 
key required. 


2. For GN, go to step 4, otherwise, 
position on start of DB. 


3. Interface to Buffer Handler 







and HSAM 1/0. 
(= 
DB Buffer 
Handler 
2-15 
4. Exit. 


DLZDLROO — Retrieve Module 


Extended Description Routine Extended Description 


1. Set code PSTSTLEQ for DLZSETL. 
Set exit code for entry SSAEVAL 
in DLZSSA. 


. Set code PSTSTLBG for DLZSETL. 
Set exit code for entry SSAEVAL or 
SSAEVALM in DLZSSA. 


For GN, set exit code for entry 
SSAEVALM in DLZSSA. 


. DLZSETL branches to subroutines 
according to DB organization. R6 
points to segment in buffer pool. 





OUTPUT 


R6 


To Fig 2-9 
Step 3 


DLZDLROO 


Routine Label 
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Figure 2-9.5. Retrieve — DLZSSA Routine (DLZDLROO) (Part 1 of 2) 


INPUT OUTPUT 


First Part ars . If SSA is unqualified, go to 


f LEV 
— step 4 
Position 
& status 
conditions 


set by 
RETRIEVE 
in pre- 
vious or 
current 

cali 


. Go to DLZKDTE routine (Fig 
2-9.2) to check acceptability 
of a segment. 


. If segment is not accepted, 
go to step 9. 


Second Part 
of LEV 


SSA description 
set by 
ANALYZER 


. Update level table. First Part 
of LEV 


Description 


. Go to next lower level. of last 
acceptable 
segment 
including its 


. If level is not qualified, hiorarchical 
go to step 10. pat 


. Go to DLZSKPG routine (Fig 
2-9.6) to skip segments. 


8. Go to step 1. 


DLZDLROO — Retrieve Module DLZDLROO 


Extended Description Routine Label Extended Description Routine Label 


2. With a Boolean SSA all Boolean state~ =|. 
ments connected by AND operators are 
considered a ‘set’ of qualification state- 
ments. An OR operator between two 
qualification statements begins a new set 
of qualification statements. A set can 
consist of one or more qualification 
statements. To satisfy any set, the 
segment must satisfy all statements 
within the set. 

. Prepare input (segment type, etc.) DLZSKPG | SKIPGENS 
before entering the central DLZSKPG 
‘routine. 











Figure 2-9.5. Retrieve — DLZSSA Routine (DLZDLROO) (Part 2 of 2) 





INPUT PROCESS OUTPUT 
pb — 9. Segment is not acceptable. 
posiion and A. If LEVCONT is on and not 
pda a at root level, go to Step 9E. 
set by RETRIEVE 
in previous If LEVCONT is on and at root 
or current call level, go to Step 9D. 
If current level is root, 
exit to subroutine DLZGER. 
Otherwise, back up one level 
and return to Step 9A. 
Get next root segment. 
Interface to 
buffer handler 
and HSAM 1/O 
Go to routine DLZSKPG (Fig 
2-9.6) to skip to next segment 
of same type under present 
root. 
Return to Step 1. 
10. Exit. 
Return to 
Caller 
DLZDLROO — DLZSSA Routine ; DLZDLROO 
Extended Description Routine Extended Description Routine 
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Figure 2-9.6. Retrieve — DLZSKPG Routine (DLZDLROO) 
INPUT From Caller aa PROCESS OUTPUT 





R15 a= = 


> 1. if ‘Skip to Next’ option, go to step 3. 


2. Prepare control input. AGB 


. Skip to next segment. 


SDBORGN 
SDBPOSC 


3 
4. If skip failed, go to step 8. 
5 


. If ‘Skip to Next’ option, test if segment is 





erereen sensitive. 
JCB If not sensitive, go to step 3. 
JCBCODE, 
bit 6. If ‘Skip to Next Segment’ option, test 


JCBRDREQ segment level and segment code. 


If accepted, go to step 8. 


7. If position still before segment searched, 
go to step 3. Otherwise, indicate failure. 


8. Exit. 


Return to 
Caller 


DLZDLROO — Retrieve Module 


DLZDLROO 


Extended Description Routine Label Extended Description Routine Label 


1. Option is ‘Skip to Next Segment’ if R15 
is positive. If R15 is negative, the option 
is ‘Skip to Specified Segment’. 


7. If segment code of segment found is not 
larger than that required. 


2. If JCBLVT = X‘02’, require segment 
code, segment level in physical DB, and 
parentage level. 


SKIPGENS 


3. For JCBRDREQ off, current segment 
is examined first. 


DLZSKPS cails general skip routine 
DLZSKPE, which calls specific skip 
routines: 

For HS, DLZSKPD. 


For HD using SUBPOSN, DLZSTLA. 


In some cases (HS, skip to first child of 
current segment), DLZSKPD is called 
directly from DLZSKPS. 


4. End of ESDS chain reached for HISAM. 











Figure 2-9.7. Retrieve - DLZGETS Routine (DLZDLROO) 








INPUT From Figure J PROCESS 
2-9 Step 5B 
1. Turn on LEVDATA. Turn on 
LEVHELD if Get Hold call. 
LEV 2. Save lowest level number. 
DMB 3. If logical relationship, call 


DLZLOGR (Fig. 2-9.8) to build 
concatenated segment. 


4. If variable length segment, 
build/expand segment. 


SDB 
SDBFLS 


5. If field level sensitivity specified, 
call DLZFLDO to build user view. 


6. Move segment to I/O area and give 
segment location and length. 








DMB. 






segment in 
buffer poo! 


7. Do final housekeeping. 


8. Exit. 


DLZDLROO — Retrieve Module 


Extended Description Routine Label Extended Description 


6. If batch, only one task active, or no 
field level sensitivity specified, and if 
segment is fixed length and not involved 
in logical relationship, segment data is 
not moved (left in buffer pool). The 
same is true for Insert calls. 


For a path call (*D command), data has 
already been moved in DLZUPDT and 
is not moved here. 


Address of I/O area is PSBIOAWK. 


7. For Insert calls, return is to Load/Insert. 





Return to 
Analyzer or 
Load/insert 





OUTPUT 


KEEPIT+2 





DLZLDROO 


Routine 


Label 
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Figure 2-9.8. Retrieve — DLZLOGR Routine (DLZDLROO) 
INPUT PROCESS OUTPUT 








From Caller 






_ 1. For ISRT call go to step 6. 
PSDB SDB 


logical child a> 
data in buffer 


2. Move logical child. PSBIOAWK 








work area 
for concat. 
segment 

data 


3. If not a variable length segment, 
go to step 5. 


4. Expand segment. 


5. Move destination parent 





data. 
oe 6. Call DLZRETI (Fig 2-9.9) to 
SDB (of insert positioning for logical 
logical i 
child) child. 
7. Exit. 
To Caller 
DLZDLROO — Retrieve Module DLZDLROO 
Extended Description Routine Label Extended Description : Routine Label 


1. Destination parent concatenated key DLZYENT 
and logical child data. 


6. Destination parent exists. Position 
segment on alternate twin chain. 
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Figure 2-9.9. Retrieve — DLZRETI Routine (DLZDLROO) (Part 1 of 2) Figure 2-9.9. Retrieve —-DLZRETI Routine (DLZDLROO) (Part 2 of 2) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Caller 


7. Follow alternate twin chain 


— — + : ae until key (if present) larger 
LEV > 1. Retrieve destination parent PSBIOAWK th A 
i ted an key of inserted segment, 
ed LEVUSEOF using concatenated key. Destination or to sid of chain. Go to 
ica . 
child) parent data exit, step 8. 


Special case: matching key 
found in chain: 

PSBIOAWK 

logical 

auiitad A. Key unique: If segment de- 

canesion: leted logically, go to 

key exit, step 8. Otherwise, 

set status code ‘I!’, and 

go to exit, step 8. 





DBPCB 


B. Key not unique: If rule is 
oud —_— + — — § 2. If virtual logical child, go ‘FIRST’, go to exit, step 8. 
PSDG to step 4. Otherwise, follow twin 
chain until larger key is 


found or to the end of 
3. Find pointer number and go to chain. 


step 5. 





8. Exit. 
4. Get pointer numbers. 





Return to 
. : . Caller 
5. Get pointers from destination 
destination parent. 
Parent in 
buffer 
6. If no key and rule ‘FIRST’, 
go to exit, step 8. 
DLZDLROO — Retrieve Modute DLZDLROO DLZDLROO — Retrieve Module BLZREnee 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





1. LEVUSEOF indicates offset of key for 


7. Alternate means: Logical twin chain RETISRTL 
this level in concatenated key. 


if entering from physical path, 


physical if entering from logical path. 
Destination parent data is stored 


behind concatenated key and logical 


If sequence field is in destination 
child. 


parent concatenated key (possible 
only for virtual logical child), the 
virtual area (physical parent, 
concatenated key, and logical child 
data) is built in PSBIOAWK, calling 
routines DLZYSTC and DLZMOVA. 
As an indication, the first byte of 
PSTWRKTS is set to X‘FF’. 


. For virtual logical child (insert through 
logical path), positioning on physical 
twin chain is required. 


. Find logical twin pointer number. 
Find logical child first and last pointers 
in logical parent. Find FDB for key of 
logical child, if present. 


A. For logically deleted segment, 
tum on bit JCBDEFDL in 


. Find physical twin pointer number. field JCBCODE. 


Find physical child first and last 
pointers in parent. Find FDB for key 
of virtual logical child, if present. 


Z 0100S 


Logical twin key is moved to key 
feedback area. 





He1edO jo pope 


uor 


SL-7@ 
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Figure 2-9.10. Retrieve — DLZFLDO Subroutine (DLZDLROO) 


INPUT : PROCESS OUTPUT 
From Figure l FER 


2-9.7 Step 5 
1. Initialize field exit routine interface list. 


SDB | 
-—_— =o 2. If concatenated segment, update FER. FER 
| 


; 


PSDB Le} 3.if segment is variable length, update FER. 
[overs —— ~~ ” 
FER 4. Call DLZCPY 10. 
[ ita 
Return to 
caller 
DLZDLROO — Retrieve Module DLZDLROO 
Extended Description Routine Label Extended Description Routine Label 


. FER is located at address in PPBNDXWK. 


. The concatenated segment has been built 
in PSBIOAWK and the user’s view must be 
constructed in another area (PSBXIOWK). 
For path calls (*D command), the user’s 
view will be moved back to PSBIOAWK 
after conversion to the user’s view. 


. Fields may be defined that are outside the 
physical segment, so they must be 
defaulted so conversion errors do not 
occur. If such fields do exist, the segment 
is moved to PSBXIOWK and the defaults 
provided. 


. If a conversion error is detected, an 
immediate exit to the Call Analyzer is 
taken. 
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Figure 2-10. Load/Insert (DLZDDLEO) (Part 1 of 2) Figure 2-10. Load/Insert (DLZDDLEO) (Part 2 of 2) 































INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Caller 
(See Note) 
2. (con't) 
DLAI Ctrl User 1/0 —+—>F aioli DL/t Ctrl DL 
Area 1. Initialize. * Blocks Buffer 
Not Load 
. 2-10.7 
L— 2. Call subroutine depending on 
data base and ‘PROCOPT’: 
DFSDNXTO 
Not Load End- 
ing Routine 
2-10.8 
== 
HSAM Loa 
2-10.1 
HISNXLV 
Load Ending 
Routine 
(am) orsonio | 2-109 
HISAM Load 
2-10.2 
4. Return 
ee 
HISAM Root 
Insert 
Return to 
2-10.3 Caller (See 
Note) 
== 
HISAM Depen- 
dent Segment 
Insert 
2-10.4 
HDAM/HIDAM 
Load 
2-10.6 
DLZDDLEO — Load Insert Module DLZDDLEO 
Extended Description Routine Label Extended Description Routine Label ; 
Extended Description Routine Label Extended Description Routine Label 


Note: DLZDDLEO is called from 
DLZDLAOO (Call Analyzer) or 
from DLZDLROO (Retrieve 
Module). 


Z uonses 


Note: DLZDDLEO is called from 
DLZDLAO0 (Call Analyzer) or from 
DLZDLROO (Retrieve Module). 





We10dQ jo poms 
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Wa] J0 Ajsedoig—jepiej8]y] posusoyy] 


8L-Z 


Z OUINJOA ‘enue IIS0T SA/SOCd 1/14 


Figure 2-10.1. HSAM Load (DLZDDLEO) 


INPUT PROCESS OUTPUT 
From Fig. 
2-10 Step 2 


Figure 2-10.2. HISAM Load (DLZDDLEO) 
INPUT PROCESS OUTPUT 











From Fig. 
2-10 Step 2 


JCB 
JCBPRESF 
LODBLOCK _ ; A. Root segments: JCB 


DIF LOOBLOCK 


JLODLRECL 
LODBLOCK poRe <— 
DMBPRSZ LODBLOCK —_—— > B. Dependent segments: 
DMBDL EOPOEFSED If no more space in ESDS, 
LODLRECL 


write previous ESDS and 
3. Move segment to |/O area 1/O Buffer 


get buffer for new one. 
and update tables. [ 
= 


[icsusanp_}— — + — — +5 1 On first entry, initialize 


DTF and I/O buffer address. 









Write previous KSDS record 
and get buffer for new one. 





2. Issue locate mode ‘PUT’ when 
record is full. 





2. Move segment to buffer 


(==) DFSDLIMS 









4, For UNLD call, issue last — —- 3. UNLD call: 
BOT | 
| LoporFser| Write previous KSDS and ESDS 
LODOFFSET : 
record. Write new KSDS record 
To Fig 2-10 ODLRECL r ad 's. 
Sten 4 with root key of ‘FF’s 
To Fig 2-10 
Step 4 
DLZDDLEO — HSAM Load DLZDDLEO DLZDDLEO — HISAM Load DLZDDLEO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





2. The segment is moved, the PCB key 
fed back, and the level table updated. 


1. DLZDLOCO stores the 1/O area address IHSAMFRST 
in the JCB. It is updated with every 


‘PUT’. 


Record length, buffer address, WRITEOLD [JHISIMPLS 
and offset into buffer is stored 
in the JCB and passed from call 


to call. 


The record size is taken from the DTF 


and the error exit address in the DTF 
is updated. 


When a call for a new root seg- 
ment is made, the buffer handler 





(DLZDBH00) is called to write 
the previous KSDS record and 

to get buffer space for the new 
one. 


If there is space left in the ESDS |NEWRBA 
records, continue with step 2. 

Otherwise, the RBA of the next 

ESDS record is calculated, the 

pointer of the current ESDS 

record updated, and the buffer 

handler called to write the ESDS. 

Another call to DLZDBHO0 is 

made to get buffer space fora 

new ESDS record. 


ABEND 855 is given if VSAM 
returns an RBA different from 
the calculated one. 
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Figure 2-10.3. HISAM Root Insert (DLZDDLEO) (Part 1 of 2) Figure 2-10.3. HISAM Root Insert (DLZDDLEO) (Part 2 of 2) 
INPUT aaa PROCESS OUTPUT INPUT PROCESS OUTPUT 
2-10 Step 2 


6. Write record block. 









PST 1. Call DLZDBHOO0 to get segment 
with key EQ or HI. 7. Call DLZDBHOO to get buffer PSTDATA 
ayia | Ls mera soekoae cere El ped 
PSTBYTNM 

PSTDATA 2. If key of returned segment is 
ACB EQ, update SDB and level 1/0 Area 8. — ri al update PCB and Buffer 

table. If it is not EQ, go to [ nen [| 
lextension _ step 7. 

=a 
3. Return I! status when segmen perce aes 
was not deleted. [ 
Otherwise, log old segment. 9. LOG THE NEW RECORD. 
——) 
DB Pen 10. Call DLZDBHOO to write the 
= new KSDS record. 
1/0 Area 4. Move segment and update PCB 
and level table. [| 11, Update tables. — ss 
| =m Ey 
Step 3 
5. Indicate only one segment in 
record and log new record. 
DLZDDLEO — HISAM Root Insert . DLZDDLEO DLZDDLEO — HiSAM Root Insert DLZDDLEO 
Extended Description Routine _Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





6. The buffer handler is called to write 
the KSDS record back (PSTBFALT). 


7. The buffer handler is called 
(PSTGBSPC) to get buffer space 
for one KSDS record. 


10. PSTPUTKY is used to write the new 
KSDS record. 


Z uoT}09S 


. The buffer handler is called with OTOFUNC|HIISRTRO 
‘PSTSTLEQ’ to get a segment with 
key equal or higher than the one to 
be inserted. 
. If the key returned is higher, 
processing continues with step 7. 
. When the delete flag is not on in the 
segment returned, status code ‘II’ is 
returned to the caller. 
The data base log module is called to ISSDELET 
log the old KSDS record. 
. The new root segment is moved to the 
KSDS record. The PCB key feedback 
area and level table are updated. 
. The pointer to the ESDS record is 
cleared and ‘00’ moved to the KSDS 
record behind the root segment. The 
data base log module is called to log 
the new KSDS record. 
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Figure 2-10.4. HISAM Dependent Segment Insert (DLZDDLEO) 
INPUT PROCESS OUTPUT 








From Fig. 
2-10 Step 2 











PSTBYTNM 
PSTWRKT1 


spsPposc |“ —_ 1. Log old record. 
PSTWRKT5 


SDBPOSN 


and check rest of records for 
valid segment codes. 


. Compute length of shift data 
‘861' 


3. Move shift data and new seg- 
ment. 


Figure 2-10.5. 


4. Log record. 


== 





DLZRDBLO 
DB Logger 
2-16 


5. Correct position of other SDB LEVTAB 


users of same data base. [ [ 


Z OUINJOA ‘TenueW 30TSA/SOGI/TG 08-7 


6. Write one, two, or three 
records. 





DLZDDLEO — HiSAM Dependent Segment Insert DLZDDLEO 


Extended Description Routine ipti Routine Label 


. DLZDLROO has located within a KSDS 
or ESDS record, where the new segment 
has to be inserted. The old record is 
logged from insert point on to the right. 

. The record is inspected from the insert 
point to the right. The segment code 
is checked and the length of the remain- 
ing segments is added to give the 
‘shift data’. 

. Log the old record from insert point 
to the right. 

. SDBs and level tables of other PCBs 
that are positioned in the same record 
are updated to show the shifted position 
of the segments. 

. DLZDBHO0 is called to write back the 
old record and to write one or two new 
ESDS records. 
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Figure 2-10.5. NOTSC Routine (DLZDDLEO) (Part 1 of 2) 


INPUT PROCESS 
From Fig. 
2-10.4 
Step 3 
a ae 1. Segment and shift data fit in 
old record: 
an | A. Move ‘shift data’ right. 
| B. Move segment to buffer and 
| update tables. 
L 


> 2. Segment fits in old record 
but not ‘shift data’. 


A. Calculate RBA of new ESDS 
record. 


B. Get buffer space for one 
ESDS record. 


C. Chain old and new record 
and log chain. 


D. Move ‘shift data’ to new 
ESDS record. 


E. Log new record. 


F. Move segment to old record. 


DLZDDLEO — HISAM Dependent Segment Insert 


Extended Description 





1. When both the new segment and the 
shift data fit in the old record, the 
shift data is moved right by segment 
length. The segment is moved to the 
record and the PCB and level table are 
updated. 


. Anew ESDS record has to be built. 





Extended Descri 





Figure 2-10.5. NOTSC Routine (DLZDDLEO) (Part 2 of 2) 


OUTPUT INPUT PROCESS 





> 3. Move segment and ‘shift data’ 
to new ESDS. 


1/O Area —_— 


old record 


A. Calculate RBA of new ESDS 
record. , 


B. Get buffer space for new 
ESDS record. 


C. Chain the two records and 
log the chain. 


D. Move segment to new record 
and update records. 


new record 


E. Move ‘shift data’ to new 
record. If it does not fit, 
repeat step 3 A, B, and C. 





F. Log one or two new ESDS 
records. 


um | DLZRDBLO | DBLO 
DB Logger 
2-16 


DLZDDLEO DLZDDLEO — HISAM Dependent Segment Insert 
Routine Label 


Extended Description Routine Extended Description 


3. Neither segment or ‘shift 
data’ fit in the old record. 
A new record has to be 
built. If it does not have 
room for the segment and 
‘shift data’, another new 
ESDS record has to be built. 
The records are chained and 
logged. 








To Fig 2-10.4 
Step 4 





OUTPUT 


DLZDDLEO 


Routine 


Label 
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Figure 2-10.6. HDAM/HIDAM Load (DLZDDLEO) (Part 1 of 2) 


INPUT From Fig. PROCESS 
2-10 Step 2 
DMB — —_—— > 1. Get real length of segment. 


I 


VLDSEG 


Deal with 
Variable 
length segment 


I 






SDB 2. Simulate retrieve positioning. 
PST —_ 


> 3. If segment is present, replace 
it. Otherwise, get space for 
segment. 


CED be Z0H10s0 


HD Space 
Management 






2-13 


4. Update anchor point in HIDAM 
and log change. 


1/0 Area 


[] [> §. Move segment to buffer and 


update tables. 


(amd | a -soums 





DLZDDLEO — HDAM/HIDAM Load 


Extended Description 





. The subroutine VLDSEG takes the 
length from the PSDB for fixed 
length segments and from the user’s 
I/O area for variable length segments. 
The compaction exit routine is called, 
if it exists. 


VLDSEG 


ABEND ‘863° is given when the com- 
paction routine changes the sequence 
field. 


. For HIDAM root segments, DLZDLROO , 
did the positioning. For other segments, 
it is done here. 

. Space management is called to get IGETSPACE 

space for the segment. If the segment 

was deleted in one path only, ic. it 

was not removed by DLZDLDOO, the 

segment is replaced with the new data. 


. HIDAM root segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 


. Move segment to buffer, update PCB 
key feedback, and update level table. 








OUTPUT 


> PST 


PSTWRKDS5 


SDB 


PST 


PSTDATA 
PSTOFFST 
PSTWRK1 










SDB 1/O Area 


SDBPOSC 


LEVTAB 





DLZDDLEO 








Figure 2-10.6. HDAM/HIDAM Load (DLZDDLEO) (Part 2 of 2) 
INPUT PROCESS 


6. Update prefix. 


= 


eee Oe 


changes. 


DLZDDLEO — HDAM/HIDAM Load 


Extended Description Routine Label 


6. The prefix of the segment is updated: 
physical twin pointers, physical parent 
pointer, logical parent pointer, and 
logical twin pointers. 


. The data base log module is called to 
log the inserted segment. 


. Call space management (DLZDHDSO) 
to update the prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments and call the 
data base log module to log all changes. 









7. Log inserted segment. 





lpLzRpBLo 


DB Logger 
2-16 


> 8. Update prefixes of parents and 
twins. Update HIDAM root 
anchor points and log the 


Extended Description 


To Fig 2-10 
Step 3 


OUTPUT 


Buffer 


DLZDDLEO 


Routine 





Label 
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Figure 2-10.72. HDAM/HIDAM Not Load (DLZDDLEO) (Part 1 of 2) 
























Note: When this entry is used, DLZDLROO DFSDHDIO 
had done the positioning. 


2. Space management (DLZDHDS0) is GETSPACE 
called to get space for the segment. If 
the segment was deleted in one path 
only, ie. it was not removed by 
DLZDLDOO, the segment is replaced 
with the new data. 


. HIDAM root segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 


. Move segment to buffer, update PCB |DFSDLIMS 


feedback and the level table. 

















Figure 2-10.7. HDAM/HIDAM Not Load (DLZDDLEO) (Part 2 of 2) 












5. The prefix of the segment is updated: 
physical twin pointers, physical 
parent pointer, logical parent pointer, 
and logical twin pointers. 


. The data base log module is called to 
log the inserted segment. 


. Call space management (DLZDHDSO) |TOSPACE |UPBITMAP 
to update the bitmap if required: 
update prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments, call the 


data base log module to log all changes. 





INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Fig. ; 
2-10 Step 2 
(See Note) [— 4 5. Update prefix. 
DMB — —_— > 1. Get real length of segment. PST | 6: (a9 Wesrted seginent 
a= =a) PSTWRKDS | baits 
Zs em 

Process Vari- DB Logger 

able Length | 2-16 

Segment 

: L_ 7. Update prefixes of parents 
PST — — > 2. If segment is present, replace : : 
~~ it. Otherwise. aet space for and twins. Update HIDAM root 
ae nient 7 Bet SP anchor point and log the 
ls ee 
(emmy [Siz0%050 peTwK 
anagement To Fig 2-10 
2-13 Sepa 
3. Update anchor point in HIDAM 
and log change. 
1/0 Area Buffer SDB 
aa 
4. Move segment to buffer and 
update tables. LEVTAB 
DLZDDLEO — HDAM/HIDAM Not Load DLZDDLEO DLZDDLEO — HDAM/HIDAM Not Load DLZDDLEO 
Extended Description Routine Label Extended Description Routine Extended Description Routine Label Extended Description Routine Label 
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Figure 2-10.8. Not Load Ending Routine (DLZDDLEO) 


INPUT 











From Fig. 
2-10 Step 3 


DMBFLAG [R™ 7"j-~- -—— 


SDBFLAG [~~ ~~ ae 


LEVTAB 


PSTUSER 


PROCESS 


indexed. 


2. If segment was LP, insert LC 
now. 


3. For LC segments: 


Replace data of LP if it was 
not inserted before. 


4. For PATH ISRT, insert next 
segment. 


. Clean up and return. 





DLZDDLEO — DFSDXNTO Ending Routine for Not Load 


Extended Description 


1. Index Maintenance is called to build 
the primary or secondary index for 
an index source segment. 


. If the ISRT call was for a concatenated 
segment, the destination parent was 
inserted first (if it did not exist before 
the ISRT call). The next step is to 
insert the logical child segment. The 
insert process is repeated from Fig- 
ure 2-10 step 2. 


. If the ISRT rule of the destination 
parent is virtual and this segment 
existed already, then the data of the 
destination parent is replaced. 
DLZDXMTO0 is called to replace the 
index if the destination parent is an 
index source segment. 


. If there are more segments to be 
inserted in a PATH, then point to the 
next segment in the I/O area and 
continue with Figure 2-10 step 2. 








Routine Label 





. Call DLZDXMTO if segment is 


Extended Description 





Figure 2-10.9. Load Ending Routine (DLZDDLEO) 
INPUT PROCESS OUTPUT 









OUTPUT 


From Fig. 
2-10 Step 3 


1. Write work data set for LC _PSTWRK1 


SDB = 
CueoEs [| and LP segments. 
DBPCBLKY 


PSOB 





2. Build index for index source 
statement. 


LP-SEGMENT peruse 


3. Load next segment for PATH 
ISRT. 


4. Call DLZDXMTO for UNLD call. 


5. Clean up and return. PSTSEG R15 





go000000 
PSTUSER 
PSTSEGL 
To Fig 2-10 
Step 4 
PSTSEG R15 
00000000 00000000 
PSTSEGL 
DLZDDLEO DLZDDLEO — HIISNXLV Ending Routine Load Mode DLZDDLEO 
Routine Label Extended Description Routine Label Extended Description Routine ‘Label 


1. If the segment just loaded was a 
logical child or a logical parent 
segment, DLZDSEH0 is called to 
write the work data set. If opening 
of the work data set fails due to 
“ASSGN SYS013,IGN’ and the segment 
was an LP, processing continues. On 
any other open failure , ‘ABEND 864 
is given. 


. If the segment is an index source 
segment, DLZDXMTO is called. It 
writes the work data set or writes the 
index pointer segment directly. 


. For PATH ISRT, the pointer to the 
I/O area is updated and processing 
continues with Figure 2-10 step 2. 


. DLZDXMTO is called to inspect all 
PSDBs of the DMB for index source 
segments and builds an FF key index 
pointer record for it. 
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Figure 2-11. Delete/Replace (DLZDLDOO) 
INPUT PROCESS 


From Fig. 
28.1 


User 


1/O Area DBPCB 


> 1. Initialize addresses. 





JCBPRE: — =— 2. If call is REPL, 


REPLACE 


I 


Process 
Replace 
2-11.1 


3. If call is DLET and data base 
is HISAM, 


DLETE 


Process HISAM 
lete 
2-11.4 


[ 


4. |f cali is DLET and data base 
is HDAM or HIDAM, 






DELTHD 


Process HD/HID 
Delete 
2-11.5 


5, Return to DLZDLZO00 with 
return code in register 15. 


J 


DLZDLDOO — DLET/REPL Module 


Extended Description Routine Label 





1. The segment to be deleted or replaced |DLZDLDOO |DELREPEP 
is identified by the contents of 
JCBLEVIC. Position is established by 
DLZDLROO0 in the previous cail. 


. If a user error occurred, DBPCBSTC 
has return code. If abend, PSTERCD1 
has abend code and registers are saved 
at SCDABSAV + 8. 












Extended Description 





To Figure 
28.1 








Figure 2-11.1. Replace (DLZDLDOO) 


OUTPUT INPUT 


From Fig. 
2-11 step 2 


PSTUSER 


DMBDL 


LEVUSEOF 


PSTUSER 


PSTUSER 





R15 


DLZDLDOO DLZDOLDOO — DLET/REPL Module 


Routine Label Extended Description 





1. 


2. PSTUSER will have new value if path 
call had been made. The length is taken 
from the first two bytes of the I/O 
area if segment is variable length. 


. Additional logic is needed if segment 
is variable length or if PROCSEQ is 
specified. 


. A. The following check is made 
for the LC: 


Neither the physical nor logical 
key fields can be changed (DA 
status). 


The following checks are made for 
the destination parent: 


a) If data didn’t change, no replace. 











PROCESS OUTPUT 


(REPLACE) 
1. Ensure that key field has 


not been changed. 


PSTUSER UDLENGTH 


2. Set address, length, and 
offset of segment. 


3. Ensure data changed and key 
field not changed. 


4. If segment is an LC, 


A. Ensure LC can be replaced. 


B. If data changed: 


DOREPL 


Replace LP 


2-11.2 





5. Replace segment. 


DOF FSET DBOFFSET 
offset in offset 
user area in 1/0 
Buffer 
ALTKYADJ 
adjust- 
ment for 
alternate 
key 
Buffe 


To Fig 2-11 
Step 3 


| porePL EPL 


Replace 
segment 
2-11.2 







6. If another level to replace, 
go to step 1. Return when 
done. 


DLZDLDOO 


Routine Label Extended Description Routine Label 








4. (con’t) 


b) =‘ If replace rule is physical, RX 
status. If logical, no change and 
blank status. If virtual, the kev 
of the LP cannot be changed 
(DA status). The segment can 
be replaced. 


B. 
5. This replaces normal segment or LC. 


6. If path call, see if another segment 


in hierarchy can be replaced. 
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Figure 2-11.2. Replace Data (DLZDLDOO) (Part 1 of 2) 
INPUT PROCESS 


From Fig. 
2-11.1 


(DOREPL) 


1. Do PI queuing if necessary. 







DMBFLAG 





———P 2. If segment has secondary 
Buffer indicies and is not marked 
physically deleted: 


A. Go build work area for 
index maintenance. 


B. Call DLZDXMTO. 


(==) DLZDXMTO 


index Main- 


tenance 
2-12 


DMBCBSTC ——— es en C. If blank or NE status, 
continue. 


DMBVLDFG ——_———- =» J —_— —_ > 3. If segment is variable length: 


(=m) 





Replace 
variable 
2-11.3 








Buffer 4. Log old data in buffer. 


(am) 


Label 
DOREPLO9 
IDOREPL10 





Physical replace 
code 51 





2-16.2 





DLZDLDOO — DLET/REPL Module 


Extended Description Routine 

















2. Index Maintenance needs the actual 
concatenated key of this segment. 
If return code is NE, we still continue 
processing because index is now set 
as per new data. Work area is freed. 


3. 


4. DBLPHYR+DBLPHYRDO is set in 
first byte of PSTWRK1. 








REPVLS 


DLZRDBLO 


Extended Description 








OUTPUT 


Delete Work Area 


PSTWRK1 


code, data 
length 


DLZDLDOO 


Routine Label 








Figure 2-11.2. Replace Data (DLZDLDOO) (Part 2 of 2) 
INPUT PROCESS 


User 1/0 5. Move new data to buffer. 


6. Log new data. 


ers) DLZRDBLO 


Physical 
replace code 50 
2-16.2 






7. Mark buffer altered. 
= 


BFALT tabel 
2-15 


8. Return 


OLZDLDOO — DLET/REPL Module 
Extended Description Routine Label 


5. The address of the user’s I/O 
area is in PSTUSER. 


6. DBLPHYR is set in PSTWRK1 
with the length of the segment. 





Extended Description 


OUTPUT 


Buffer 


new data 


PSTFNCTN 


Return to 
Fig 2-11.1 


DLZDLDOO 


Routine Label 
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Figure 2-11.3. Replace Segment (DLZDLDOO) 










INPUT PROCESS OUTPUT INPUT 
From Fig. 
From Fig. 2-11 Step 3 
2-11.2 
Step 3 
(REPVLS) 
Buffer Pool 
Sutter ——-— > 1. Compress new data if required. ees oe 
pees al 
2. If data separated from prefix, 
replace separated data and go 
to step 4. ae oe 
(um) Freie se es 
REPVLS50 
Replace 
separated 
data 
Buffer PSTUSER 
3. If new length is GT old Buffer 


length and GT minimum, sepa- 
rate data from prefix and go 
to step 6. 





Pe | A (new data) 
oid 

| 
eae 


I 


REPVLS30 
Separate data 


from prefix 





4. If length is equal to old Buffer 


length, or if both are LE 
minimum, replace old data and 
go to step 6. 


new data 


I 
Lil 


REPVLS20 


Replace 
oid data 


5. If new length is LT old 
length, replace old data. 





To Fig 2-11.2 
Step 7 


DLZDLGBO00 — DLET/REPL Module DLZDLDOO 


Extended Description Routine Extended Description Routine Label 





2. When the data is previously separated {DLZDLDROIR 
and the new data length is less than 

the old length, an attempt is made to 

relocate the new data adjacent to the 


prefix. 


DLZDLDOO — DLET/REPL Module 


Extended Description 
. When the old segment size is not large 


enough for the new segment, the data 
is separated from the prefix. A pointer 
overlays the first four bytes of the old 
data and will be used to find the new. 


1. 


2. The entire segment to be erased is 
logged. 


5. When the new data will fit in the old 
location, it is moved over the old data 


3. Only the segment code and delete 
with any excess bytes being freed. 


byte are logged. 


All changes to the data base have 
been logged. 





Figure 2-11.4. HISAM Delete (DLZDLDOO) 


PROCESS 


(DLETE) 


1. Get segment to be deleted. 


==) 


DLZDBHOO 


DB Buffer 
Handler 







2-15 


———-—="—> 2. \f data base is simple HISAM, 


A. Indicate physical delete 
for Logger. 


B. Indicate PST erase for 
Buffer Handler. 


3. If data base is HISAM, 
A. Set proper delete bits. 


B. Indicate logical delete 
for Logger. 


C. Indicate PSTBFALT for 
Buffer Handler. 


4. Log the change. 


=) 


DLZRDBLO 


DB Logger 
2-16 








5. Update the data base. 


Ganz) DLZDBHOO 


DB Buffer 
Handler 
2-15 


Routine Label 


Extended Description 





To Fig 2-11 
Step 5 





OUTPUT 





Buffer Poo! 


[ 


PSTWRK1 


DBLLGDLT 


PSTFNCTN 


PSTBFALT 


LOGOUT 


Label 
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Figure 2-11.5. HDAM/HIDAM Delete (DLZDLDOO) 
INPUT PROCESS OUTPUT 


From Fig. 
2-11 Step 4 









(DELTHD) 


PSDBs -—-—ft-—— 1. Scan PSDBs looking for LC 
or LP. 


A. _ If starting segment is an 
a 2 LC retrieved from logical 
path, mark him LD, is pos- 
sible. 


B. Ensure no violations of 
the physical delete rule. 
Delete 


2. Build work area for path. ior ares 


Buffer 3. Read and process all segments 
from top to bottom. Determine 
how to delete LC or LP. 





4. At bottom, Buffer 


(mma 


REQBOTM 


Delete 
segment(s} 
2-11.6 






5. Return 


To Fig 2-11 
Step 5 


DLZDLDOO — OLET/REPL Module DLZDLDOO 


Extended Description Routine Label Routine Label 


LC will be marked logically IDLZDLDOO |DELTHD 
deleted (LD) if delete rule = 

physical or logical and segment 

not PD (physically deleted). 


A logical parent can have no 
active logical children. An LC 
must not be accessable by his 
logical path. 


. This is needed to remember where 
we are during scan of data base and 
to build concatenated keys. 


. LCF and LCL pointers in logical 
parents, and LTF and LTB pointers 
in logical children, will be updated 
now. 


. Segments may be marked deleted or 
physically removed. 


. All work sets are freed. 
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Figure 2-11.6. Delete Segment (DLZDLDOO) (Part 1 of 2) Figure 2-11.6. Delete Segment (DLZDLDOO) (Part 2 of 2) 


























INPUT PROCESS OUTPUT INPUT PROCESS ‘OUTPUT 
From Fig. 
2-11.5 
Step 4 
6. If starting segment is not yet 
deleted, get next segment and 
(REQBOTM) process it. 
eet es To Fig 2-11.5 
DMBELAG P 1. If segment is an JSS; delete PSTFNCTN zz Step 3 
index pointer. 
(ona) acide, 
Index Main- . : 
tenance 
2-12 
2. If segment cannot be removed, Buffer To Fig 2-11 
mark PD, log, and go to step Saas Step & 
6. =a 
tete 
3. Change all pointers to this 
segment. 
== 
DB Logger 
4. Mark position changes in SDBs. 
5. Free segment’s space. PSTFNCTN 
a) 
HD Space 
Management 
DLZDLDOO — DLET/REPL Module DLZDLDOO DLZDLDOO — DLET/REPL Module DLZDLDOO 
Extended Description ; Routine Label Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label 


. If the index source segment (ISS) has [DLZDLDDO 
been marked physically deleted (PD), 
no index maintenance is performed. 
Delete processing continues with 
blank or ‘NE’ status from DLZDXMTO. 


6. Next segment is physical DLZDLDOO | BOTMiB 
twins, sibling, or parent. 


7. At end, a final log call is DLZDLDO0 | ENDLTSCN 
made to DLZRDBLO which 
signifies delete is finally 
accomplished. 


. Asegment will not be physically 
removed if still required because 
of a logical relationship. Note that 
the delete work area and DL/I blocks 
(primary PSDBs) are used as input 
to every step. 


. If segment is an LC or LP, the logical 
relationship pointers (LC, LP, and 
LT) have already been changed. 


. The current position (SDBPOSC) is IDLZDLDAO 
marked ‘lost’ in this caller’s PCB. If 
any other PCB has position on this 
segment, the position should be 
changed to bypass this segment. 


% BONSES 


. DLZDHDSO makes the log calls for FRSPCO5G 
the physical delete. 
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Figure 2-12.1. Insert New Index Target Segment (DLZDXMTO) 


Figure 2-12. Index Maintenance (DLZDXMTO) 
OUTPUT INPUT From Catter ff" PROCESS OUTPUT 


INPUT PROCESS 
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From Caller 
(See Note) 


PST 
STDBPCB 

PSTIQPRM 
STUSER 





PSTBYTNM 
CBPRESF [ -<— 2. Analyze function. 
PST perce | 
PSTFNCTN 


PSTWRK1 





DLZDXMTO — Index Maintenance 
Extended Description 


Note: DLZDXMTO is called from 
DLZDDLEO or DLZDLDOO. 


2. When called from DLZDDLEO, the 
function is ISRT, ASRT, UNLD, or 
REPL. When called from DLZDLDOO, 
the function is REPL or DLET. 
PSTWRK1 contains the PSDB address 
of the index source segment for DLET 
or the LSDB address of the index source 
segment. 


A. Construct and insert all index 
pointer segments for this index 
source segment that should not 
be suppressed. 


Construct and delete all old 
index pointer segments existing 
for this index source segment. 










1. Save registers and PST fields. 


3. Restore registers and PST. 





Work area 






A. tf ISRT/ASRT, insert new 
index pointer segment. 


LINSERT 


Insert New Index 
Target Segment 
2-12.1 


I 






B. if DLET, delete old index 
pointer segment. 


I 


LDELETE 
Delete Old Index 


Target Segment 
2-12.2 





C. If REPL, replace index 
pointer segment. 


LREPL 


Replace Index 
Target Segment 
2-12.3 


I 






D. If UNLD, insert FF-key. 


LUNLOAD 


Insert FF-keys 
2-12.4 


I 






PST 


Return to Caller DLZDXMTO 

















Routine 


2. (con’t) 


C. Construct all old and new index 
pointer segments that can be con- 
structed from that index source 
segment. Depending on the data 
changed and the status of sup- 
pression, delete old index pointer 
segment, or insert new index 
pointer segment, or delete old 
and insert new index pointer 
segment, or replace data of index 
pointer segment. 


If DLBL card is provided, write LUNLOAD 
index pointer segment with all 

FF-keys for all index data bases 

to belonging to this PCB. 











Work area 


See note 





DLZDXMTO — Index Maintenance 


Extended Description 


Note: The input control blocks are used 
in all process steps. The output work area 
is modified in ali process steps. 


1. Find SECLISTs and PSDBs of index 
source segment, index target segment, 
and index pointer segment and save 
their address in work area. Decide if 
primary or secondary has to be built. 
Find length of index pointer segment, 
sequence field, segment length, and 
protected data length. 


. For primary indexes, move HIDAM 
root sequence field from user I/O 
area to work area. For secondary 
indexes, construct SRCH, SUBSEQ, 
and DDATA fields. 


'3. When the index entry has to be 
. suppressed due to SRCH equal to 
NULLVALUE or due to exit routine 
return code, the index pointer segment 
is not inserted. 








1. Find secondary lists and length Work area 
of index pointer segment. See note 


2. Construct index pointer segment. 


3. If index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 


4, If initial load, put index 
pointer segment. 


5. If Not Load mode, call DLZDLAO0O 
to insert index pointer segment. 


=> DLZDLAOO 


Cail Analyzer 
2-8 


6. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 





Return to 
Caller 


DLZDXMTO 


3. (con’t) 
Build temporary blocks: 
@ SDB 


® Segment name=sequence field name 
of index pointer segment 

®@ Update Index Maintenance JCB 
and DSG. 


. If DLBL cards are provided, write 
index pointer segment to index data 
base and call DLZDLOCO to open 
index data base if not open yet. Other- 
wise, write index pointer segment to 
workfile and call DLZDSEHO to open 
the workfile. 


. Prepare DL/I call list to call LINXNS 
DLZDLAOO with an *X call. DLZDLA00 


. When the last secondary list is 
reached, exit is to LRETURN. On 
error in secondary lists, exit is to 
LABND772 (abend code 772). 
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Figure 2-12.2. Delete Old Index Target Segment (DLZDXMTO) (Part 1 of 2) 


INPUT 


From 


Figure 2-12 


Step 2B 


Work Area 


See note 





DLZDXMTO — Index Maintenance 


Note: The input control blocks are used 
in all process steps. The output work area 
is modified in all process steps. 


1. Find SECLISTs and PSDBs of index 
source segment, index target segment, 
and index pointer segment and save 
their address in work area. Decide if 
primary or secondary has to be built. 
Find length of index pointer segment, 
sequence field, segment length, and 
protected data length. 


. For primary indexes, move HIDAM 
root sequence field from user I/O 
area to work area. For secondary 
indexes, construct SRCH, SUBSEQ, 
and DDATA fields. 


. When the old index entry has to be 
suppressed due to SRCH equal to 
NULLVALUE or due to exit routine 
return code, the index pointer segment 
is not inserted. 





PROCESS OUTPUT 


Work Area 
1. Find secondary lists and length See rate 


of index pointer segment. 


2. Construct index pointer segment. 


3. If old index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 


4, Call DLZDBHOO to read old 
index pointer segment. 


esp DLZDBHOO 


DB Buffer 
Handler 
2-15 







5. Change delete flag and zero 
pointer in index pointer seg- 
ment. 


6. Call Logger to log index 
pointer segment changes. 


DLZRDBLO 


DB Logger 
2-16 






DLZDXMTO 


Extended Description Routine 





3. (con’t) 


Build temporary blocks: 

@ SDB 

@ Segment name=sequence field name 
of index pointer segment 

@ Update Index Maintenance JCB 
and DSG. 


. The Buffer Handler is called (PSTSTLEQ) LGOXNS 
to find the old index pointer segment. 
If it is not found, or it is already 
deleted, or the pointer or key are not 
correct, an NE status code is returned 
to the caller. 


. Delete flag is set to CO. 


. Chain maintenance and logical delete 
calls are made to data base module. 











Figure 2-12.2. Delete Old Index Target Segment (DLZDXMTO) (Part 2 of 2) 
INPUT PROCESS 





7. Call DLZDBHO0 to write back the 
changed index pointer segment. 


DLZDBHOO 


DB Buffer 
Handler 
2-15 


8. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 


To Fig 2-12 


DLZDXMTO — Index Maintenance 


Extended Description Routine Label 


Extended Description 


7. The Buffer Handler is called 
(PSTBFALT) to write the 
changed index pointer segment 
back. 


. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, 
exit is to LABND772 (abend 
code 772). 





OUTPUT 


DLZDXMTO 


Routine 


Label 
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Figure 2-12.3. Replace Index Target Segment (DLZDXMTO) (Part 1 of 2) 





INPUT From PROCESS 
Figure 2-12 
Step 2C 
Work area 1. Find secondary lists and length Work area 
of index pointer segment. See Note 
aD 
See note 
2. For primary index, continue with 
step 1. Otherwise, construct old 
index pointer segment. 
3. Construct new index pointer 
segment. 
4. Replace index pointer segment: 
A. _ If old and new index pointer 
segment are suppressed, go to 
step 1 and take next second- 
ary list. 
B. If old index pointer segment 
was suppressed, insert new - 
index pointer segment. 
C. ‘If old and new index pointer 
segment were not suppressed 
and SRCH and SUBSEQ fields 
not changed, replace index 
pointer segment. 
D. If the old and new index 
pointer segment were not 
suppressed and SRCH and 
SUBSEQ fields were changed, 
delete old index pointer seg- 
ment and insert new index 
pointer segment. 
DLZDXMTO — Index Maintenance DLZDXMTO 
Extended Description Routine Label Extended Description Routine Label 


Note: The input control blocks are 
used in all process steps. The output 
work area is modified in all process 
steps. 


1. Find SECLISTs and PSDBs of 
index source segment, index 
target segment, and index 
pointer segment and save their 
address in work area. Decide 
if primary or secondary has 
to be built. Find length of 
index pointer segment, sequence 
field, segment length, and pro- 
tected datd length. 


. Construct old index pointer seg- 
ment from SRCH, SUBSEQ, and 
DDATA fields. 


. Construct new index pointer 
segment from SRCH, SUBSEQ, 
and DDATA fields. 











4. Replacing of the index pointer 
is done in different ways, 
depending on suppression of 
old and new index pointer 
segment. 


A. When both old and new index 
pointer segments are suppressed, 
no action takes place. 


Continue with insert sub- 
routine 


DLZDBHO00 is called to read 

the old index pointer segment. 
On errors, NE is returned. The 
data base log module is called 

to log the old index pointer 
segment, and after the change of 
the DDATA fields, the new index 
pointer segment. DLZDBHO0 is 
called again to write the index 
pointer segment back 
(PSTBFALT). 














Figure 2-12.3. Replace Index Target Segment (DLZDXMTO) (Part 2 of 2) 


INPUT PROCESS OUTPUT 





4. (con't) 


E. If the old index pointer 
segment was not suppressed, 
but the new one was, delete 
the old index pointer segment. 


5. if last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 


To Fig 2-12 
Step 2C 


DLZDXMTO — Index Maintenance DLZDXMTO 


Extended Description Routine Label 


5. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, 
exit is to LABND772 (abend 
code 772). 





Extended Description Routine 





Label 
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Figure 2-12.4. Insert FF-Keys (DLZDXMTO) 


INPUT PROCESS 
From Fig. . 


2-12 Step 
2D 


OUTPUT 


® 


Work area 1. Loop through all PSDBs to Work area 


See Note 





find index source segment. 


See Note 


2. Find length and keylength of 
index pointer segment. 


3. Move FF-key to index pointer 


segment. 


4. Build temporary blocks. 


5. Write the index pointer segment 
to the data base or to the work- 


file. 


6. If last PSDB, return. Otherwise, 
go to step 1 and get next PSDB. 


DLZDXMTO — Index Maintenance 


Extended Description Routine Label 


Note: The input control blocks are used 
in all process steps. The output work 
area is modified in all process steps. 


1. DLZDDLEO passes the LSDB 
address of the root segment with 
an UNLD call. The DDIR 
address is used and all PSDBs 
in that DMB are inspected if an 
index exists. 


. Find length of index pointer 
segment and its key length. 
Decide if primary or second- 
ary index has to be built. 


. Move FFs in the length of the 
index pointer segment sequence 
field to the index pointer 
segment. 


To Fig 2-12 
Step 3 


DLZDXMTO 


Extended Description _ Routine _Label 


4. Build temporary blocks: LBLDCTLB 


@ SDB 


@ segment name = sequence 
field name of index 
pointer segment 


@ update index maintenance 
JCB and DSG. 


. Write index pointer segment to LLOAD 
index data base if DLBL cards LWORKDS5 
are provided. Call DLZDLOCO LCALLBH 
to open index data base if not DLZLOCO 
yet open. 











Figure 2-13. HD Space Management (DLZDHDSO) 
INPUT 








PROCESS OUTPUT 


From Caller 


PST Y _______> 1. Initialize work fields in 





DSG the PST PST 
Seer 
DMB —— — f— —_— 2. Test for FBA. 
= | 
A. If yes, go to Figure 2-13.5. 


PST —_— —j— — 


PSTFNCTN 


A. 
B. 


4. Exit. 


DLZDHDSO — Space Manager 


Extended Description Routine 





1. PSTWRK1 contains the length of the 
space to be obtained or freed. 


2. A. 


If the device is FBA, the device 
characteristics must be obtained 
and the number of Cls per track 
and Cls per cylinder calculated. 
Get space in a data base CI for GETSPACE 
the specified segment as close as 
possible to a specified base RBA. 
The caller passes the address of 
the involved segment’s PSDB in 
R5 and the base RBA in 
PSTBYTNM. 

Get space in a data base Ci for GETSPACE 
the specified segment as close as 

possible to a root anchor point. 

The caller passes the address of 

the involved segment’s PSDB in 

RS and the CI number/RAP 

number (in the format BBBR) 

of the involved root anchor 

point in PSTBYTNM. 





3. Determine function requested. 


If Get Space, go to Figure 2-13.1. 


if Get Space Close to Root 
Anchor Point, go to Figure 
2-13.1. 


if Free Space, go to Figure 2-13.2. 


If Modify the Bit Map, go to 
Figure 2-13.3. 


If Backout Get Space, go to 
Figure 2-13.4. 


If Backout Free Space, go to 
Figure 2-13.2. 


If Backout Modify Bit Map, go to" 
Figure 2-13.3. 


Return to 
Caller 


DLZDHDSO 


Label Extended Description Routine Label 








3. (con’t) 


| C. Free space that has been allocated |FRESPACE 
for the specified segment ina 
data base CI. The caller passes the 
address of the involved segment’s 
PSDB in RS. 


Turn on or off the bit in the Bit 1|DLZDHDSO| FIXBTMP 
Map representing the specified Cl 

of a data base. The caller specifies 

the CI number in PSTBLKNM. 


Backs out a previously processed |DLZDHDSO 
‘Get Space’ call. 


| . Backs out a previously processed {FRESPACE 
‘Free Space’ call. 


Backs out a previously processed |DLZDHDSO| FIXBTMP 
‘Modify Bit Map’ call. 
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Figure 2-13.1. Get Space (DLZDHDSO) (Part 1 of 2) Figure 2-13.1. Get Space (DLZDHDSO) (Part 2 of 2) 
INPUT =» PROCESS OUTPUT INPUT PROCESS OUTPUT 















From Figure 
2-13 S 

tep 3 ® ACl in the same cylinder 

that has a 1-bit in the Bit 


(See Note) Map. 


=——- 1. Get the Cl into the buffer DL/I Buffer © ACI being within the delta 
pool that is pointed to by cylinders that is in the 
the base RBA. buffer pool. 


DtZDBHOO 


DB Buffer 
Handler 
2-15 


@ ACI being within the delta 
cylinders that has a 1-bit 
in the Bit Map. 


=) 







@ The next available Cl at 
the end of the data base. 


2. Determine if enough space is 





PST 


Data Base Cl 




























available in this Cl. If 
there is enough, store RBA of 
space and, if necessary, update 
the Bit Map. Cl number 1 
Cl number 1 0 
[isp . If no space is found, go to 5. silted space 7 found, store PST 
step 5. e error code. 
eieres . Locate another data base Cl, 6. Exit. 
aides get it into the buffer pool, 
Prefixes and go to step 2 for the 
| following: 
@ ACI that is on the same Me Reto 4 
Cl number 1 track that is in the buffer ie 
pool. 
@ ACI that is on the same 
cylinder that is in the 
buffer pool. 
@ ACI on the same track that 
has a 1-bit in the Bit Map. 
DLZDHDSO — Space Manager DLZDHDSO DLZDHDSO — Space Manager DLZDHDSO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





2. (con’t) 


Note: For the functions ‘Get Space’ and 
‘Get Space Close to RAP’, the following 
csects are used: 


Main routine: DLZDHDSO 
DLZDHDSO calls GETSPACE. 


GETSPACE calls SRCHBLK, 
CALCSRLM, SRCHPOOL, SRCHBTMP, 
BITMPLOC, and BITMPOFF. 


SRCHPOOL calis ARCHBLK. 
SRCHBTMP calls SRCHBLK. 


2. If distributed free space has been 
specified, a check is made if this block 
is to be left free. If not, a check is 
made to see if a percentage of this 
block is to be left free. If so, this 
percentage is added to the space 
requested. 


@ the size itself 
® the sizetminimum segment length 
@ the sizet2. 


A Bit Map Change is necessary if the 
data base CI cannot accomodate the 
maximum size segment because the 
available space has been used. The 
Bit Map update is performed by 
BITMPOFF. 


. The calculation of the CI numbers 


for a given range is done by routine 
CALCSRLM. 


Searching through the buffer prefixes 
is done by routine DLZRRHPL. 


Searching through the Bit Map is done 
by routine SRCHBTMP. 


5. Areturn code of X‘OC’ will be returned 
to the caller. 





To determine if enough space is 
available in a CI, the FSE’s in this 
Cl are checked. If there is more than 
one FSE in a CI, the free space with 
the largest of the following values 
that will not cause a Bit Map change 
is taken: 
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Figure 2-13.2 Free Space (DLZDHDSO) 
INPUT PROCESS OUTPUT 
From Figure 
2-13 Step 3 
(See Note) 
— — ® 1. Scan through the chain of FSEs in the 
specified data base Ci to find the FSE 
which applies. 
DL/I Buffer 
by, 2. Check if there is more free space on the 
T right and/or left side of the segment to 
| be freed. 
tL ao DL/\ Buffer 
DL/I Buffer — af. LB 3. Build a new FSE and/or change existing 
rae 
4. Log the change of the data base Cl. 
Log Tape 
(=—_ 
2-16 
5. Issue BFALT call to the Buffer Handler. 
(a=m) 
DB Buffer 
Handler 
2-15 
Cl number 1 6. If necessary, update the Bit Map. Seated 
7. Exit. 
To Figure 
2-13 Step 4 
DLZDHDSO — Space Manager DLZDHDSO 
Extended Description Routine Label Extended Description Routine _Label 


Note: For the functions ‘Free Space’ 
and ‘Backout Free Space’, the 
following csects are used: 


Main routine: DLZDHDSO 
DLZDHDS0 calls FRESPACE 


FRESPACE calls BITMPLOC 
and BITMPON. 


1. The scan will be finished when a FSE 
with a higher offset than the one in 
PSTOFEST is reached, or, when the 
end of the FSE chain is reached. 


. The purpose of this check is to find 
out whether there will be a contig- 
uous piece of free space after process- 
ing the current Free Space call. 


. A Bit Map change is necessary if the 
data base CI can accomodate the 
maximum size segment after process- 


6. (con’t) 


ing the Free Space call. In this case, 
the appropriate bit in the Bit Map 
has to be turned on. The Bit Map 
update is performed by routine 
BITMPON. 














Figure 2-13.3. Modify Bit Map (DLZDHDSO) 














INPUT PROCESS OUTPUT 
From Figure 
2-13 Step 3 
(See Note) 
ACB Ext. PST > 1. Get the Ci number of the Bit PST 
Map that applies. 
2. Locate this Cl in the buffer 
pool. 
(= 
Handler 

2-15 

DL/t Buffer 3. apply the change to the Bit DL/It Buffer 
jap. 
ae ie rt 
PST 4. Log the change of the Bit Map. 
PSTWRK1-4 
== | puzRosto 
DB Logger Log Tape 

2-16 

Peed 5. Mark the buffer containing Buffer 
= the Bit Map as altered. Prefix 


DLZDHDSO — Space Manager 
Extended Descripti Routine 


Note: For functions ‘Fix Bit Map’ and 
“Backout Fix Bit Map’, the following 
csects are used: 


Main Routine: DLZDHDSO 


DLZDHDSO0 calls BITMPLOC, 
BITMPON, and BITMPOFF. 


1. This step is performed by routine 
BITMPLOC. 


2. A ‘Byte Locate’ call is issued. DLZDBHO0O 


3. The update of the Bit Map is performed 
by routine BITMPON or BITMOFF. 


5. A ‘Buffer Alter’ cali is issued. DLZDBHOO 


DOLZDBHOO 


DB Buffer 
Handler 
2-15 


(=) 





To Figure 
2-13 Step 4 


DLZDHDSO 
Label 


Extended Deseri Routine Label 
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Figure 2-13.4. Backout Get Space (DLZDHDSO0) Figure 2-13.5. FBA Support Device Characteristics Routine (DLZDHDSO) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


From Figure 
| 2-13 Step 3 
ST 


AMD 
(See Note) 
a é JAMDDSN issue SHOWCAT to obtain volume PSTSWKAR 


eee ee 
PSTBUFFA ‘aie ican Clara find the PSE = = serial number of data base. 
gi ’ 
PSTOFFST that applies. E 
ee eee 





From Figure 
2-13 Step 2 





u 


vu 


ST 





PSTVLSR Issue GETVCE to obtain device [estswkar | 
DL/| Buffer characteristics. LPSTSHKAR | 
2. If the previously freed space PST 
cannot be found, store error 3. Is device FBA? 


code and go to step 9. 


4. If no, issue message DLZ8311 and 


end task. 
PST ——-} — — -p 3. If the previously freed space 
is not in the middle of a freed DMB 
area, go to step 5. 5. If yes, calculate Cls per track and 
Cls per cylinder. TDMBCITRK | 
DMB 
DLs Butter 4. Create a dummy FSE. DL/I Buffer 6. Calculate scan value. 
7 7. Exit. 
5. Change the FSE(s) to reflect 
the aquisition of the space. 
To Figure 
2-13 Step 3 
6. Prepare the information for PST 


logging the data base change. 


Buffer 7. Mark the buffer as altered. Buffer 


Prefix : Prefix 
DB Buffer 
Handler 
2-15 : ; 2 
DLZDHDSO — Space Manager DLZDHDSO 


8. Update the Bit Map if necessary. 





Cl_number 1 Cl number 1 Extended Description Routine Label Extended Description Routine Label 
! 
9. Exit. To Figure 
2-13 Step 4 
DLZDHDSO — Space Manager : DLZDHDSO 
Extended Description Routine Label Extended Description Routine Label 





8. A Bit Map update is necessary if the 
data base CI cannot accomodate the 
maximum length segment after backing 
out the previously processed Free 
Space call. The Bit Map update is 

| performed by routine BITMPOFF. 


Note: This function backs out a Free 
Space call processed previously. The 
following csects are used: 


Main routine: DLZDHDSO 
DLZDHDSO calls SRCHBLK. 


2. PSTOFFST contains the offset to the 
part of the data base CI which was 
freed during the Free Space call to be 
backed out. 


A return code of X‘OC’ is stored in 
PSTRTCDE. 


. A ‘Buffer Alter’ call is issued to the DLZDBHOO 
Buffer Handler. 





Wad J° Aj19d01g—[e119}8],] posuedry] 





Figure 2-14. Open/Close (DLZDLOCO) 
INPUT 


Figure 2-14.1. Open/Close DOCDCB Routine (DLZDLOCO) 
PROCESS OUTPUT INPUT ae PROCESS OUTPUT 











From Caller 


1. Issue DOS OPEN. ACBEXT 


DMBFLGS 


R11 —— — 
ACBEXT 


Note: For each of the following 
steps, DOCDCB (Figure 2-14.1) 


is called. 
2. Issue ‘MODCB’ to update the 
exit list. 
PSTFNCTN — TP 1. If PSTFNCTN = PSTOCPCB, ACB 3. Issue ‘SHOWCB’ and compare 
[i fi loop through all SDBs and Sree DMB entries to VSAM define 
I secondary lists to find all entries. 
| | ACBs to be opened. 
| Je 4. For an empty ESDS file, write 
l control record. 
| 
DDIR 
| — 2. if PSTENCTN = PSTOCDCB, 5. Log the open record. 


open this one ACB. 





6. For HISAM KSDS, go back to 
Step 1 to open ESDS. 


| 

| 

| 

t _ > 3. If PSTFNCTN = PSTOCDSG, 7. Call compression routine, if 
| 

| 

| 

| 

u 





process all ACBs in DSG. necessary. 
Return to 
. Fig 2-14 
“3 4. If} PSTFNCTN = PSTOCDMB or 
PSTOCALL, process all ACBs 
in one DMB or all ACBs in all 
DMBs. 
Return to 
Caller 
DLZDLOCO — Open/Ciose DLZDLOCO 
DLZDLOCO — Open/Close DLZDLOCO Extended Description Routine Label Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label 1. This part is called from all steps of DOCOPEN 4. The first control interval is written DOCFIRST |NOTHIDAM 
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. DLZDLROO uses this function for 





1. This function is used by the utilities PCENTRY |AROUND 


DLZRDBCO and DLZURGPO. It is 
also used by DLZDLAOO when the 
first data base call to a not open data 
base is issued (batch only). For 
PROCOPT=L, only one data base is 
opened. For all other processing 
options, all related data bases are 
opened as well (index data bases and 
logically related data bases). 


ACBENTRY 
positioning a HSAM data base at the iDOCDCB 
start point. It is also used by 


DLZURDBO. It opens only one ACB, 
i.e. for HISAM only KSDS or ESDS. 


. DLZDLDOO uses this function when it 


finds a logically related data base that 
is not opened (this can happen because 
of delete sensitivity propagation). 








4. PSTOCALL + PSTOCOPN : 
DLZOLIOO uses this call to open all 
data bases in the system eligible for 
initial opening (online only). 
PSTOCALL + PSTOCCLS : 


This call is used to close all ACBs in 
the DL/I system (e.g. DLZDLAO0). 


PSTOCDMB : 
This call is used by DLZOLIOO for 


deferred opening (online). It is also 
used by DLZDXMTO0 and by data 
base utilities. It opens/closes one 
ACB (two ACBs for HISAM). 


Figure 2-14 for opening. If the data 
base is open, return immediately. 
Immediate return is also done when the 
call is PSTOCALL and initial opening 
is not planned. Unsuccessful opens 
have return error code in PST and flag 
in JCB. ‘DLZ020P’ is issued. 


. The exit list is updated with the 


address of the error handling routines 
of DLZDBHO0. 


. Control interval size, relative key 


position, and key length of DMB is 


compared to VSAM catalog entries. 
MISMATCH: DLZ025I1, DLZ0271, 
and DLZ028I. 


For HISAM, the number of logical 
records in VSAM catalog has to be 
zero for PROCOPT=L. For HD, the 
high used RBA is inspected. Message 
‘DLZ023I is issued for conflicts. 





(for HISAM, as many records as fill 
one CI). It contains DL/I control 
information. For HD, the ACB is 
closed and opened again to simulate 
‘NOT LOAD’ to VSAM. 


. All PSDBs are inspected to determine 
if a compaction routine with ‘INIT’ 
specified exists. 
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Figure 2-15. DB Buffer Handler (DLZDBHOO) (Part 1 of 2) 


INPUT 


PST 


PSTFNCTN — — 





From 
Caller 


Flag Name 


| PSTBYLCT 


PSTBKLCT 


PSTBYALT 


PSTBFALT 


PSTGBSPC 


PSTFBSPC 


PSTBFMPT 


PSTPGUSR 





DLZDBHOO — Buffer Handler CSECT 


Extended Description 


Locate relative byte number. 


Locate relative block number. 


Locate a relative byte number 
and mark buffer altered. 


Mark a buffer containing 
data as altered. 


Purge all buffers altered by 
a task. 











PROCESS 


DLZDBHOO: 
2 
1. For HDAM or HIDAM: 


A. Byte locate. 
(See Figure 2-15.1, Step 1) 


B. Block locate. 
(See Figure 2-15.1, Step 4) 


Byte alter. 
(See Figure 2-15.2, Step 1) 


Mark buffer as altered. 
(See Figure 2-15.2, Step 3) 


Get buffer space. 
(See Figure 2-15.3) 


Free buffer space. 
(See Figure 2-15.9) 


Mark buffer as empty. 
(See Figure 2-15.9) 


Purge buffers. 
(See Figure 2-15.10) 


Routine Label Extended Description 


DLZDBHOO 
DLZDBHOO 
DLZDBHOO 


DLZDBHOO 


DLZDBHOO 
DLZDBHO3 
DLZDBH03 
DLZDBHO3 








Figure 2-15. DB Buffer Handler (DLZDBHOO) (Part 2 of 2) 














OUTPUT INPUT PROCESS 
PST 2. For HIDAM index, Simple HISAM, 
or HISAM (ESDS or KSDS). 

Flag Name Hex Code 

PSTBYLCT 02 Read a record. 

PSTSTLEQ 09 SETL equal. 

PSTSTLBG OC SETL begin. 

PSTWRITE 08 Write a new record to 
HISAM ESDS. 

PSTPUTKY Insert a record by key into 
a HISAM KSDS. 

PSTMSPUT Insert record(s) sequentially — 
into a HISAM KSDS. 

PSTBFALT Write a record by RBA to a 
KSDS or ESDS. 

PSTGETNX Read the next record in a 
KSDS. 

PSTERASE Erase a record from a KSDS. 

DLZDBHOO DLZDBHOO — Buffer Handler CSECT 
Routine Label Extended Description Routine Label Extended Description 


Read a record by RBA from 
a KSDS or ESDS. 


Get a record by root key from 
a KSDS. ' 


Read the record containing 

the first root segment in a 

KSDS. 
LOWRITE 
PUTKY 
MSPUT 
HSWRITE 
GETNX 


HSWRITE 








Return to 
Caller 


OUTPUT 


DLZDBHOO 


Routine 





Label 


Wal Jo Ayiodo1g—eLiejeyy] posusory] 





Z woes 


e1odQ jo poyisjN 


uo! 


66-—7C 








Figure 2-15.1. Byte Locate/Block Locate (DLZDBHO00) 
INPUT 


PROCESS 
From 
Figure 2-15 
Step 1A 
BYLCT: 


PST a 


PSTBYTNM 


1. Convert the given RBA to a VSAM 
control interval (Cl) number and 
an offset within the control 
interval. 


2. Locate the buffer address. 


( : LOCATE Routine 
2-15.4 


Bact 3. Go to Step 6. 


Figure 2-15 
Step 1B 


BKLCT: 


4. Locate the buffer address. 


LOCATE Routine 
2-15.4 


5. Convert the Cl number to a RBA. 
6. Exit. 





PSTBLKNM 


DLZDBHOO ~ Buffer Handler CSECT 


Extended Description Routine Label 


1. The relative byte number for the 
control interval is retrieved from 
PSTBYTNM. 


DLZDBHO0 | CONVER 


. The same as in Step 1 except that 
a control interval number is passed 
in PSTBLKNM. 








To 
Figure 2-15 
Step 3 





OUTPUT 


PST 


PSTBLKNM 
PSTOFFST 


PST 


PSTBYTNM 


DLZDBHOO 


Routine 


Label 








Figure 2-15.2, Byte Alter/Buffer Alter (DLZDBHOO) 


INPUT oe PROCESS 
Figure 2-15 
Step 1C 





OUTPUT 


BYALT: 


PST —- oe aoe > 


PSTBYTNM 


1. Convert the RBA to a block 
number and an offset. 










| PSTBLKNM| 
PSTOFFST 


2. Locate the buffer address. 


a=) LOCATE Routine 
2-15.4 





From 
Figure 2-15 
Step 1D 
BFALT: 
pest ——~—~ FP 3. Turn on the bit in the buffer 
prefix to indicate that the 
buffer was modified or altered 
by this user. BFFR 
y 64, Exit. 
To 
Figure 2-15 
Step 3 
DLZDBHO0 — Buffer Handler CSECT DLZDBHOO 
Extended Descrip Routine Label Extended Descri Routine 








1. Byte alter is a combination of byte 
locate (Figure 2-15.1, Steps 1-3) and 
buffer alter (Figure 2-15.2, Steps 3 
and 4). 


. The bit that is turned on is in the 
2-byte field BFFRUSID. The 16 bits 
correspond from right to left to the 
user ID indicated in the PPST. If a 
user ID higher than 16 is assigned, 
two or more users share the same 
bit. 


DLZDBHO0 |IMARKALT 





Label 
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Figure 2-15.3. Get Buffer Space (DLZDBHOO) 





INPUT PROCESS 
From 
Figure 2-15 
Step 1E 
GBSPC: 
PST SBIF ___ G dd d 
- 1. Get the address of the selecte 
PSTBYTNM 
fs! buffer wibpoor 
BFFRs —---—- 2. Search the buffer prefixes of 


the subpool to find a buffer 
that can be used. 


lM 






ja=n DLZOWAIT 


Online Wait Routine 





available. 
BFPL 4, Move the control interval 1D 
into the buffer prefix. 
clad a P 5. If the buffer is busy, wait 
for it. 
cutis 6. Write the buffer if necessary. 
et 7. Mark buffer ‘non-reusable’. 


8. Put the address and the size 
of the buffer into the PST. 


9. Exit. 


DLZDBHOO — Buffer Handler CSECT 


Extended Description Routine Label 





1. The subpool information table (SBIF) 
is used to find a buffer subpool with 
buffers that contain the least number 
of bytes needed for this space 
request. 


. Buffers that are marked non-reusable 
or are permanent write error buffers 
cannot be used. 





3. If a reusable buffer cannot be 
found, wait until one becomes 


DLZOWAIT 


Online Wait Be 





Extended Description 


OUTPUT 


BFFR 


=| ; 


Data Base 
BFFR 







il 


Tr 


PSTBYTNM 


To 
Figure 2-15 
Step 3 


DLZDBHOO 


Routine Label 








Figure 2-15.4. LOCATE Routine (DLZDBHOO) 
INPUT 


From 
Figure 2-15.1 
or 2-15.2 


1 
, 





| 
i Vee 


| 
y 


Data Base 


DLZDBHOO — Buffer Handler 





. Check if the predecessor in the 


. If the block is new, put the 


PROCESS OUTPUT 


LOCATE: 


. Search buffer prefixes for the 


requested block. 


.LOCATE Buffer Search 
jamz) 2-15.5 





write chain is in the buffer 
pool. Write buffer if necessary. 


LOCATE Buffer Write 
x) 2-15.6 


U) 


Data Base 





lit 


buffer on the write chain and BFFRs 
mark it as altered. 


LOCATE New Block 
Processing 
2-15.7 





. If the block is not new, read Buffer Pool 


the block into the buffer. Control Block 


LOCATE Read 
== 2-15.8 





. Exit. 


To 
Figure 2-15.1 
or 2-15.2 


DLZDBHOO 
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Figure 2-15.5. LOCATE Buffer Search (DLZDBHOO) 
INPUT PROCESS 


From 
Figure 2-15.4. 
Step 1 


LOCATE: 


PSTBLKNM 


. Search the buffer prefixes for 
the requested data base Ci 
(Control Interval). 


PSTDMBNM 


PSTACBNM 





A. If the Cl is not found, go 


to Step 4. 


B. If the Cl is found as pending 
in the buffer pool, ENQ on 


this Cl. After control is 


returned, go back to Step 1. 


C. If the Cl is found in the 


buffer pool and is not busy, 


go to Step 2. 
D. If the Cl is found in the 


buffer pool and is busy, ENO 
on this Cl. After control is 
returned, go back to Step 1. 


2. Pass the buffer to the requestor. 


3. Exit. ae 


SBIF f{"—7P 4. Search the use chain from top 


pL] teow] 


bottom for a buffer that can 
be used. 


| 
1 
| L—- 5. if no buffer is available, ENO 





After control is returned, go 


back to Step 4. 
6. Exit. 
DLZDBHOO — Buffer Handler CSECT 
Extended Description Routine Label 


2. Put the buffer prefix address into 
PSTBUFFA and the buffer address 
into PSTDATA. 


. A buffer can be used if: 


It is not marked 
non-reusable. 

It is not a permanent 

write error buffer. 

It is not currently 
enqueued for a pending CI. 





on the pending Cl of the buffer 
on the bottom of the use chain. 


Extended Description 





OUTPUT 


PST 


PSTBUFFA 
PSTDATA 


Return to 
Caller 






To * 
Figure 2-15.4 
Step 2 





DLZDBHOO 


Routine Label 








Figure 2-15.6. LOCATE Buffer Write (DLZDBHOO) 


INPUT 


PROCESS OUTPUT 
From 


Figure 2-15.4 
Step 2 


BUFFOUND: 










. Move the Cl identifier into the 
buffer prefix of the buffer 
that is to be used. BFFER 


PST 
| PSTACBNM| 


. If the CI being processed is not 
new, go to Step 5. 


. If the predecessor in the write 
chain can be found in the buffer 


pool, go to Step 5. 


. If there is a sequence error, 
exit. PST 


PSTRTCDE 
aa Return to 
Caller 


. If the buffer is busy, ENQ on 








this buffer. 
. If the buffer does not need to 
be written, go to Step 8. 
Buffer Pool . Write the buffer. 
Control Block Data Base 


8. Take the buffer over. 


9, Exit. 


DLZDBHOO — Buffer Handler CSECT 
Extended Description Routine 


. Moving the CI identifier means 
enqueuing on the pending CI. 


. This check is made to ensure that 
the Cls of the data base get initialized 
in sequence. 


. X04’ is stored in PSTRTCDE. 
. A buffer is busy if: 


@ It is being read into. 

@ It is being written. 

@ It is waiting for its 
predecessor in the write 
chain to be written. 


. ‘Taking over’ a buffer consists of: 


Moving the Cl identifier from 
BFFRNPST to BFFRPST. 
Turning off BFFRPNNQ and 
turning on BFFREXNQ in 
BFFRSW. 

Putting the buffer at the 

top of the use chain. 

Clearing the buffer (with 
zeros). 


LT Lee crein] 


To 
Figure 2-15.4 
Step 3 


DLZDBHOO 


Label Extended Description Routine Label 
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Figure 2-15.7. LOCATE New Block Processing (DLZDBHOO) 
PROCESS 


INPUT 


BFFRs 


f— 
a 


PPST _ 


From 


Figure 2-15.4 


Step 3 


pp -4 


PPSTID 


DLZDBHO0 — Buffer Handler CSECT 


Extended Description 


4. The purpose for enqueuing the 
predecessor is to wait for completion 
of the writing. This is necessary to 


find out if the buffer is 
error buffer. 





a permanent 


Al 


\V/ 


Lp 


V/ 


= 


10. 


Routine Label 


. Put the buffer on the bottom 


TESTNEW1: 


. Search buffer pool for the 


predecessor in the write chain. 
If it is found, go to Step 3. 


. If the predecessor cannot be 


found, go to system ABEND. 


ma) DLZABEND 


Abend 845 
2-4.2 





. If the predecessor is not being 


written, go to Step 5. 


. Enqueue the predecessor that is 


being written. 


. If the predecessor is not a 


permanent write error buffer, 
go to Step 7. 


. Mark the current buffer as a 


permanent write error buffer. 
Then go to Step 9. 


of the write chain. 


. Mark the buffer as altered. 


. Put the buffer prefix address 


and the buffer address into the 
PST. 


Exit. 


Extended Description 


OUTPUT 


BFFR 


LL 
=o 


PST 


PSTBUFFA 
PSTDATA 


To 
Figure 2-15.4 
Step 5 


DLZDBHOO 


Routine 





Labei 





Figure 2-15.8. LOCATE Read (DLZDBHO0) 


INPUT 





From 





Step 4 










Data Base 


RPL _—— 


RPLFDBK 


(VSAM) 


DLZDBHOO — Buffer Handler CSECT 


Extended Description 


Figure 2-15.4 


Routine Label 


PROCESS 


ISSREAD: 


1. Read the requested Ci from the 
data base. 


2. if no read error occurred, go 
to Step 4. 


3. If an 1/O error occurred, put 


‘return code X‘08’ (PSTIOERR) 
in PSTRTCDE. Then exit. 


4, Put the buffer prefix address 


and the buffer address into the 
PST. 


5. Exit. 


Extended Description 








OUTPUT 


Buffer Pool 
Control Block 


PST 


[PsTRTCDE | RTCDE 


Return to 


Caller 


PST 
PSTDATA 
To 
Figure 2-15.4 
Step 5 
DLZDBHOO 


Routine 





Label 
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Figure 2-15.9. Free Buffer Space (DLZDBHO03) 


INPUT 


PST 


DLZDOBHO3 — Buffer Handler CSECT 


Extended Description 


BFPLSUBD 


DMB 
Subpoo! 





1. The DMB subpool directory and the 
DMB number in PSTDMBNM are 
used to find the buffer subpool that 
applies to the call. 


. The caller can have the buffer 


handler free: 


@ Only one buffer. PSTDMBNM, 
PSTACBNM, and PSTBLKNM 


#0). 


All buffers of a data set. 


(PSTDMBNM and PSTACBNM 


#0; PSTBLKNM = 0). 


All buffers of a data base. 


(PSTDMBNM = DMB number of 
the data base; PSTACBNM and 
PSTBLKNM = 0). 





Pree PROCESS 
Figure 2-15 
Steps 1F 
and 1G 
MRKEMPT: 
~~") 1. Get the first buffer prefix in 
the subpool that applies to the 
call. : 
(— ~4P 2. \f PST fields PSTDMBNM, PSTACBNM, 
| and PSTBLKNM do not match BFFR 
-+ fields BFFRDMB, BFFRDCB, and 
| BFFRCIID, go to Step 4. 
L-> 3. If the PST fields match the 
BFFR fields: 


A. Mark the buffer as empty. 
B. Issue RELPAG macro. 


C. Put the buffer on the bottom 
of the use chain. 


. If this is not the last buffer 
prefix, get the next one and 
go back to Step 2. 





OUTPUT 
BFFR 
SBIF 
To 
Figure 2-15 
Step 3 
DLZD8HO00 
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Figure 2-15.10. Purge Buffers (CHKP Function) (DLZDBHO3) (Part 1 of 2) 








INPUT F PROCESS g OUTPUT 
rom 
Figure 2-15 
Step 1H 
PGUSR: 
PST Eee ———— 1. Get address of the JCB. 
JCB —— 2. If function is not CHKP, go to Step 19. 
oe 
PST PDIR 
fpstpsB_ =| | PDIRSILA | 
[roresina_] ——-—— 3. Get address of DDIR entry. 
PSIL 
DDIR _— 4, Get address of DMB prefix. 
DMB == 5. If data base organization is not SHISAM, 
HISAM, or index data base, go to Step 17. 
palaaolld _— 6. Get the RPL address. 
—-—-—— 7. If no request were made on this RPL, 


go to Step 11. 


RPL 
RPLACB 


(VSAM) 





8. Go test if ACB busy. 


TESTACB 


Test ACB Routine 
2- 





15.12 


DMB _>— 9. Issue VSAM ENDREG for this RPL. 


DMBORG 


OLZDBHO3 — Buffer Handler CSECT DLZDBHOO 


Extended Description Routine Label Extended Description Routine Label 


2. Field JCBPRESF in the JCB is checked 
for encoded checkpoint function 
(FUNCCHKP X‘85’). If function is not 
CHKP, go purge the DL/I buffers. 

. If data base organization is not SHISAM 
(field DMBORG; bitDMBSHIS X‘01’ not 
set on), or HISAM (bit DMBISAM1 
X‘02’ not set on), or an index data base 
(bit DABNDEX X‘08’ not set on) go 
update to next PSIL entry. 

. VSAM ENDREQs are issued for every 
SHISAM, HISAM, and index data base 
to ensure that the VSAM buffers are 
written to the data base. 














Figure 2-15.10. Purge Buffers (CHKP Function) (DLZDBHO3) (Part 2 of 2) 
INPUT PROCESS 





10. Post DMB ECB complete. 


11. If HISAM data base, update to next 
ACB extension. 


ACBXT _— 12. Get the RPL address. 


DMBACBRP 


== . If no request were made on this RPL, 
go to Step 17. 


Go test if ACB busy. 


TEST ACB 


Test ACB Routine 
2-15.12 


. Issue VSAM ENDREG for this RPL. 


. Post DMB ECB complete. 


PSIL _— . Update to next PSB intent list entry. 


PSILLNGH 


PSIL _— . Hf not end of PSB intent list, return 


ro Step 3 


. Go to normal purge. 


To Figure 
2-15.11 


DLZDBHO3 — Buffer Handier CSECT 


Extended Description Routine Label Extended Description 


11. If the entry is for HISAM, update to the 
next ACB extension. For HISAM, 
ENDREQs must be issued for both the 
KSDS and ESDS. 


18, Continue scan of the PSB intent list until 
all have been processed. When processing 
is completed, go purge the DL/I buffers. 





OUTPUT 


DLZDBHOO 


Routine 


Label 
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Figure 2-15.11. Purge Buffers (ODLZDOBHO3) (Part 1 of 2) 





INPUT PROCESS 
From 
Figure 
2-15.10 
PGUSR1: 


prefixes. 


Step 11. 





OUTPUT 


as 1. Get the first of all buffer 


2 2. If the buffer was not altered 
by this specific user, go to 





PST 
PSTDMBNM ——= 3. If the identifiers are not 
equal, go to Step 11. 
rc—p 4. If the buffer is not 
non-reusable, go to Step 6. 
Fr -—— 5. Mark the buffer empty, issue 
| RELPAG macro, and put the buffer 
| on the bottom of the use chain. SBIF 
_ 4 Then go to Step 11. 
K-66. If the buffer is not a 
| permanent write error buffer, 
| go to Step 10. 
L_+ 7. Delete this user from the user 
mask field in the buffer prefix. BFFR 
DLZDBHO3 — Buffer Handler CSECT DLZDBHOO 
Extended Description Routine Label Extended Description Routine Label 


1. This routine scans all buffer prefixes. 


3. The caller may select a certain data 
base, a certain data set, or certain 
buffers to be purged. The choice is 
indicated by putting the number of 
the desired item into PPTDMBNM, 
PSTACBNM, or PSTBLKNM. Zeroes 
in these fields indicate that purging of 
all components of the item on the next 
higher level is desired. This module 
checks the contents of the above 
mentioned PST fields against the con- 
tents of fields BFFRDMB, BFFRACB, 
and BFFRCIID in the buffer prefix. 


. Buffers that are non-reusable are freed 
during a purge call. 


. Permanent write error buffers are not 
freed until all tasks, which either 
altered the buffer, or might be 
interested in it because they use the 
data base, have terminated. 








7. Before the bit in BFFRUSID, which 
corresponds to the user identifier (in 
the PPST) of the current task, is turned 
off, a check is made whether any tasks 
are active that would share the bit with 
the current task. (Refer to the notes in 
the Figure for routine BFALT.) 











Figure 2-15.11. Purge Buffers (DLZDBHO3) (Part 2 of 2) 
INPUT PROCESS 


— — S 


8. If BFFRUSID is now zero, or if 
there are no more potential 
users for this buffer: 





A. Mark the buffer empty. 
B. Issue RELPAG macro. 


C. Put the buffer on the bottom 
of the use chain. 


9. Go to Step 11. 


Buffer Pool 
Control Block 


Central 11. If this is not the last buffer 
prefix, get the next one and 
return to Step 2. 


10. Write buffer to Disk. 


Interval (C1) 





12, Exit. 


DLZDBHO3 — Buffer Handler CSECT 


Extended Description Routine Label 





8. A task is a potential user of a buffer 
if at least one of the DSGs in the 
PSB has the same DMB and ACB as 
in fields BFFRDMB and BFFRACB 
of the buffer prefix. 


Extended Description 


To 
Figure 2-15 
Step 3 





OUTPUT 


Data Base 


DLZDBHOO 


Routine 





Label 
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R1 
R?7 
ACBXT 


DMBECB 


PST 


PSTPREAD 


From Figure 
2-15.10 
Step 8 or 14 


Figure 2-15.12. Test ACB Routine (DLZDBHO3) 
PROCESS 


. Save RPL address. 

. Get PST address. 

. If DMB ECB not busy, go to Step 9. 
. Indicate wait was necessary. 


. Get PPST address. 


OUTPUT 


In 


2 
Nn 


a 
7] 
+ 


PSTCLRWT 


D2 
Ww 


I 
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PPST 
PPSTIND 


6. Indicate enqueued by buffer handler. 


— ———p 7. Issue wait. 


R2 


uv 


8. Reset enqueued by buffer handler PST 


r 


indicator. 
—-—-— P 9. Restore RPL address. —= 
— — —P 10. Indicate DMB ECB is busy. ACBXT 


DMBECB 


11. Return to caller. 





To Figure 
2-15.10 
Step 9 or 15 
DLZOBHO3 — Buffer Handler CSECT DLZDBHOO 
Extended Description , Routine Label Extended Description Routine Label 


. Byte 2 of DMB ECB set to X‘80’. TESTACB 


. Bit PSTIWAIT in field PSTCLRWT in 
PST set on. 


. Bit PPSTBF in field PPSTIND in PPST 
set on. ; 


. DLZIWAIT macro issued. 


. Bit PPSTBF in field PPSTIND in PPST 
set off. 


. X‘80’ in byte 2 of DMBECB turned off. 
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Figure 2-16. DB Logger (DLZRDBLO) (Overview) 


PROCESS 


Note: The three different functions 
of the logger are associated with the 
three different entry points into it: 
® DLZIDBLO (Step 2) 

@ LOGWR (Step 4) 





DLZRDBLO — DB Logger CSECT 


Extended Description 


Z wonses 


nelodQ jo pou 


uor 
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WRIAHEAD (Step 5) 
. Initialize logger. (See Figure 2-16. 1) 


. Build a log record and move it to 
the log 1/O area. (See Figure 2-16.2) 


. Give control to asynchronous log 
subtask (online only). (See Figure 
2-16.3) 


. Move a log record (which has been 
built by another module) to the log 
1/O area. (See Figure 2-16.4) 


. Write log information physically to 
tape. (See Figure 2-16.5) 


. Close the log file. (See Figure 2-16.6) 





. Check for disk errors. (See Figure 
2-16.7) 


DLZIDBLO 


ONLINT 


LOGWR 





Extended Description 





OUTPUT 
Return to 
Caller 
DLZBNUCO 
DLZRDBLO 
Routine Label 
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Figure 2-16.1. Initialize Logger (DLZRDBLO) 


From 
INPUT Figure 2-16 et PROCESS 
Step 1 


1. Initialize entry points in 
SCD. 


2. Open the log file and if 
successful turn open bit 
on in SCD. 


3. Issue error message if open 
failed and disk logging was 
specified. 


4, Restore registers. 


DLZRDBLO — DB Logger CSECT 


Extended Description Routine Label 


1. The entry point to the logger module 
initially points to the initialization 
routine. After initialization it con- 
tains the entry point of DLZIDBLO 
All of the entry points to the various 
logger routines are in the SCD after 
initialization. 


. If tape logging is specified, the DTF 
is opened. 


If disk logging is specified, the ACB 
is opened and tested if successful. 


. Message DLZ0201 is issued if an 
open error occurred with disk 
logging. 


Message DLZ0771 is issued if the 
log was opened successfully with 
disk logging. 





Extended Description 


T. 
F 


° 
igure 2-16 





OUTPUT 


SCD 


[ 


DLZRDBLO 


Routine 


Label 
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Figure 2-16.2. Build Log Record (DLZRDBLO) (Part 1 of 2) 


INPUT 


From 


Figure 2-16, 


Step 2 


JCB 


JCBPRESF _ 


Te eye 


PST 


DsG 

Te 
PSTOFFST 
PSTWRK1 


PSTWRK4 


DMB 
DMBDL 

DL/l or VSAM | pmBPRS2 
ScD 


SCDCWRKL. 


Pa 


LOG WORK 
AREA 





DLZRDBLO — DB Logger CSECT 


Extended Description 


1. Depending on the kind of log record 
being processed, the logger will build 


one of the following type of log record: 


@ Physical insert record 

® Physical replace record 

@ Physical delete record 

@ Logical delete record 

@ Pointer maintenance record. 


The maximum logical record size 
for a log record is 512 bytes. The 


blocks are undefined with a maximum 


of 1024 bytes. 





PROCESS OUTPUT 


1. Build the log record: 
A. Detect the kind of log call. 


B. Move header information 
into work area. 


I 


Move data into workarea. 


If all data does not fit 
into log record, move as 
much data as possible. 


oe] 


2. Move date and time into tog Wort, Ares 


log record. 


3. Move log record to I/O area: 


ed 


If log record does not 1/0 Area 
fit into 1/O area, do Step 
4. Otherwise, go to Step 5. 


DLZRDBLO 


Routine Label Extended Description Routine Label 











Figure 2-16.2. Build Log Record (DLZRDBLO) (Part 2 of 2) 


INPUT 


Ea 


1/0 Area 


scD 


SCDLOCOU 


DLZRDBLO — DB Logger CSECT 
Extended Description 


In an online environment, the 
PUT macro is issued from the 
Asynchronous Log Subtask in 
order to avoid losing tasks when 
EOV is encountered on the log 


tape. 


6. The purpose for keeping the number 
of the last written log block in the 
SCD and in the BFFR is to enable 
DLZDBHO00 to determine if a log 
record has to be written out before 
an update is applied to a data base. 


. There will be more data to be logged 
if all data did not fit into the log 
record. See Step 1D. 





PROCESS 


‘ 


4. Write the contents of the 
1/O area to tape or disk. 


A. — If logging is being done in 
a batch environment, 
issue the PUT macro 
immediately. 


B. If logging is being done in 
an online environment, 
pass control to: 


== 


5. Check for disk errors 
if disk logging. See 
Figure 2-16.7. 


Asynchronous 
Log Subtask 


2-16.3 





6. If the log request is associated 
with a buffer, move the 
number of the last written 
log block from SCDLOCOU 
into the buffer prefix. 


7. If more data is to be logged, 
return to Step 1C. 
Otherwise: 


Routine Label Extended Description 





To 
Figure 2-16 








OUTPUT 


BFFR 


BFFRLOCO 


DLZRDBLO 


Routine 


Label 
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Figure 2-16.3. Asynchronous Log Subtask (DLZRDBLO) Figure 2-16.4. Move Log Record (DLZRDBLO) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From 
Figure 2-16.2, , hous 2-16, 
Step 4 Step 4 
(See Note) 








LOG 
RECORD 


[orenctH | 


SCDESECB 1. Lock the SYSTEM ECB. ScD 1. If the log record fits into 


n 
Q 
i 






the space currently 
PRIVATE ECB Roo [sepesece Ace He available in the LOG I/O 
PRIVECB 2. Turn off posted PRIVATE ECB. PRIVATE ECB AREA, go to Step 4. 


LOG 1/0 


CURSIZE 
AREA 


ScD 
Cd] 2. Write the current contents 
of the LOG 1/O AREA to the 
| log tape or disk. Be 


a 
Q 
rk 


i 
UU 


SCDELECB 3. Post the LOG 1/O ECB. 


PRIVATE ECB 


PRIVECB 4. Issue WAIT on PRIVATE ECB. 


tog 1/O Area 


5. Issue PUT. 3. Check for disk errors if 
disk logging. 
PRIVATE ECB TAPES (See Figure 2-16.3.) 
PRIVECB 6. Post the PRIVATE ECB. PRIVATE ECB LOG WORK 


4. Move the log record to 
the LOG 1/0 AREA. LOG 1/0 AREA 


PRIVECB AREA 
; LOG RECORD 


scD 
= _ 
scD 


SCDELECB 7. Turn off posted LOG I/O ECB. 


8. Go into wait again on 


a a” 
io) 2) 
i iI c 













LOG 1/O ECB. 
9. Post the SYSTEM ECB. 
Figure 2-16 
To 
Figure 2-16.2, 
Step 5 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 








The Asynchronous Log Subtask is Note: This function is used DLZRDBLO | LOGWR 


waiting on this ECB and when it gets 
posted, DOS/VS will mark this sub- 


Steps 1, 2, 3, 4, and 9 are performed 


within CS9ECT DLZRDBLO. 
@ Open log records (ID X‘2F’) 





Steps 5, 6,7, and 8 are performed 
within the Asynchronous Log Writer 
Subtask. 


. The SYSTEM ECB is used for commu- 


nication between DLZRDBLO and 
DLZODP. It is locked in order to 
prevent any other task from entering 
the logger while the I/O is going on. 


. The PRIVATE ECB is used for commu- 


nication about the completion of 1/O 
between the Asynchronous Log Subtask 
and DLZRDBLO. 


. The LOG I/O ECB is used for commu- 


nication about the need to issue a 
PUT macro between DLZRDBLO and 
the Asynchronous Log Subtask. 








task as dispatchable. 


. IWAIT will have the effect that the 
DL/I ‘maintask’ will be put into wait. 
The Asynchronous Log Subtask can 
then be started by DOS/VS. 











@ Scheduling records (ID X‘08’) 
@ Termination records (ID X‘07’) 
@ Checkpoint records (ID X‘41’) 
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Figure 2-16.5. Write Log Information (DLZRDBLO) 


1. Issue PUT macro to write current 


contents of the log !/O area to the 
log tape or disk. 


2. Check for disk errors if disk logging. 


(See Figure 2-16.7) 


INPUT From PROCESS 
Figure 2-16, 
Step 5 
Log 1/O Area | 
DLZRDBLO — DB Logger CSECT 
Extended Description Routine 


1. This function is used by 
DLZDBHO0, when log 
information associated 
with a data base update 
has not been written to 
tape at the time the data 
base update was being 
done. 


Label 


DLZRDBLO| WRIAHEAD 





Extended Description 





OUTPUT 
or 
To 
Figure 2-16 
DLZRDBLO 
Routine Label 








Figure 2-16.6. Close Log File (DLZRDBLO) 
INPUT PROCESS 












From 
Figure 2-16 
Step 6 


1. Reset open bit in SCD. 


2. If tape logging, close tape 
DTF. 


3. If disk logging, close ACB 
and test for close errors. 


4. If close errors, issue 
error message. 


5. Restore registers. 


DLZRDBLO — DB Logger CSECT 


Extended Description Routine Label Extended Description 





1. Either the tape or disk log file is DLZIDBLO | LOGCLOSE 


closed in this subroutine. 

This subroutine is used by DLZODP, 
DLZRDBLO, DLZRRCOO, and 
DLZBNUCO. 


4. Message DLZ0211 is issued. 





OUTPUT 


ae ees 


DOTFMT 


To 
Figure 2-16 





ACB 


ae 


({LOGACB) 


OLZRDBLO 


Routine 


Label 
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Figure 2-16.7. Disk Errors (DLZRDBLO) 


INPUT PROCESS OUTPUT 









From 
Figure 2-16 
Step 7 


1. Perform close log file routine. 


Close Log File 
2-16.6 


s 2. If full extent, check if 
PAUSE is indicated. 


3. If PAUSE is indicated, issue 
message and wait for reply. 


4. If reply is ‘cancel’ issue 
message. 


5. If reply is ‘go’, open next file, 
issue file used message, and 


continue. 
ACB 
6. If an 1/O error occurs, issue (LOGACE) 
message. 
\ 
To 
DLZBNUCO 
ABEND 
Routine 
(Figure 2-4.2) 
DLZRDBLO — DB Loager CSECT ‘ DLZRDBLO 
Extended Description Routine Label - Extended Description Routine Label 





. The log file is closed so that the DLZIDBLO |LOGCLOSE 
operator could dump the file 
(optional) before continuing. 
. Checks to see if the user specified 
PAUSE on the DL/I control 
parameter. 
. Message DLZO76A is issued. 
. Message DLZ0771I is issued. 
. Message DLZ0791 is issued. 
. If the reply is ‘GO’, a check is made 
to determine if 1 or 2 disk files are 
being used for logging. If there are 2 
files, the second file is opened and 
control is returned to the PUT routine. 
Message DLZ004I is issued . ? 
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Figure 2-17. CICS/VS Journal Logger (DLZRDBL1) (Overview) 


INPUT PROCESS OUTPUT 








From 
Calter 


Note: The four different functions 
of the logger are associated with 
four different entry points into it: 
DLZIDBLO (Step 2) 
OPLOG (Step 3) 
WRITEEXT (Step 4) 
WRIAHEAD (Step 5) 


. Initialize the logger. 


. Build a log record and move it 
to the CICS/VS journaling buffer. 
(See Figure 2-17.1) 


. Build open log record(s) and 
move to CICS/VS journaling buffer. 
(See Figure 2-17.2) 


. Move a log record which has been 
built by another module to the 
CICS/VS journaling buffer. 

(See Figure 2-17.3) 


. Write journal information physically 
to tape. 
(See Figure 2-17.4) 


Return to 
Caller 


DLZRDBL1 — DB Logger with CICS Journaling CSECT. OLZRDBL1 


Extended Description Extended Description Routine Label 





1. Move all of the entry points 
to the logger into the SCD. 


uonesedoO Jo poyiey :7 UOT}9ES 
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Figure 2-17.1. CICS/VS Build Log Record (DLZRDBL1) (Part 1 of 2) 





INPUT PROCESS OUTPUT 
From 
Figure 2-17 
Step 2 
PST JCB 
DsG 
—-—— —? 1. Build the log record. LOG WORK AREA 
PSTWRK1-4 
DMB 
DL/! OR VSAM 
BUFFER 
= 
AREA 2. Issue DEHJC TYPE=(WRITE,DL/I) 
to get the log record moved 
to the CICS/VS journal buffer. CMOELER 
3. If physical I/O is not necessary, 
go to Step 10. 
ScD 


4. Lock SYSTEM ECB. scD 


5. Issue DFHJC TYPE=WRITE 


again. 
6. If no I/O error occurred, 
go to Step 8. 
7. Log 1/O error — system 
ABEND. 
DLZBNUCO 
ABEND Routin 
2-4.2 
DLZRDBL!I — DB Logger with CICS Journaling CSECT DLZRDBLI 
Extended Description Routine Label Extended Description Routine Label 


1. DLZRDBLI |DLZRDBLO 


4. The SYSTEM ECB is locked in order IONEC1 
to prevent any other task from entering 
the logger while the I/O is going on. 











Figure 2-17.1. CICS/VS Build Log Record (DLZRDBL1) (Part 2 of 2) 


INPUT PROCESS OUTPUT 
JCT 8. Get the new number of the last : SCD 
cTBLKNM[ written journal block from the 
JCT. 


9. Post the SYSTEM ECB. 


10. If the log request was not 
associated with a buffer, go 


to Step 12. 
SCD 11. Store.the block number of 
oe the last journal buffer written BFFR 
to tape into the buffer prefix. 
12. if the data to be logged did 
not fit into one log record, 
return to Step 1. 
To 
Figure 2-17 
‘DLZRDBLi — DB Logger with CICS Journaling CSECT DLZRDBL1 
Extended Description Routine La Extended Description Routine 


8. The purpose for keeping the 
CICS/VS event control number 
is to enable DLZRBHO0 to 
determine if a log buffer has 
to be written before an update 
is applied to a data base. 


bel 
DLZRDBLI | GETECN 
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Figure 2-17.2. CICS/VS Move Log Record (DLZRDBL1) 


INPUT PROCESS 
From 
Figure 2-17.3 
Step 3 
(See Note) 


opened, go to Step 5. 


by this DDIR entry. 


| 
r 
| 
| 
| 
| 
L 


—- 5. If this is not the last 


OUTPUT 


—-r——— 1. Locate the first DDIR entry. 
| 


- S 2. If the data base was not 


—-— 3. Build the open log record 
for the data base referenced 


LOG WORK AREA 


4. Move open log record to 
CICS/VS journaling buffer. 


To 
Figure 2-17 


DLZRDBL1 


DDIR entry, get the next 
DDIR entry and return to 
Step 2. 

DLZRDBL1 — DB Logger with CICS Journaling CSECT 

Extended Description Routine Label 





Note: Since the CICS/VS journal tape is 
not yet open at DL/I initialization, the 
open log record(s) are built and moved 
before the first scheduling call is logged. 


IDLZRDBL1 | OPLOG 


2. Adata base might not have been 
opened because of the OPEN= 
DEFERRED option or because 
of an open error. 


. See Figure 2-17.1, Steps 4-9. 





Routine 


= 
= ' 
& # 


SF 


ee 





Figure 2-17.3. CiICS/VS Move Prebuilt Log Record (DLZRDBL1) 


INPUT PROCESS 
From 
Figure 2-17. 
Step 4 
(See Note) 
LOG WORK AREA 1. Get the prebuilt log record 
ae aS and move it to the CICS/VS 


journal buffer. 


DLZRDBL1 — DB Logger with CICS Journaling CSECT 


Extended Description Routine Label Extended Description 


Note: This function applies to 
scheduling and termination 
records built by the scheduling 
termination routine. 


DLZRDBL]I | WRITEEXT 


1. See Figure 2-17.1, Steps 4-9. 








OUTPUT 


CICS/VS 
JOURNAL BUFFER 


To 
Figure 2-17 


DLZRDBL1 


Routine 


Label 
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Figure 2-17.4. CICS/VS Log Writing (DLZRDBL1) 








INPUT PROCESS OUTPUT 
From 
Figure 2-17 
Step 5 
(See Note) 
scD 
1. Store the block number of 
the block that is going to be 
written in the JCA (Journal 
Control Block). JCA 
a 
scD 
2. Lock the SYSTEM ECB. ScD 
JOURNAL BUFFER 
3. Issue DFHJC TYPE=(WAIT,DL/I) 
to get current contents of 
CICS/VS journal buffer written 
to tape. 
JCT 
4. Get the block number of the LOG TAPE 
last written journal 
block from the JCT 
(Journal Control Table). a 
scD 
5. Post the SYSTEM ECB. —_ 
To 
Figure 2-17 
DLZRDBL1 — DB Logger with CICS Journaling CSECT DLZRDBL1 
Extended Description Routine Label Extended Description Routine Label 





Note: This function is used by DLZDBHOO/|DLZRDBL1 |WRIAHEAD 
when log information associated with a 

data base update was not written to tape 

when the data base update was being 

done. 


1. Refer to note for Step 8 of 
Figure 2-17.1. 


2. Refer to note for Step 4 of 
Figure 2-17.1. 








Figure 2-18. MPS Start Transaction (DLZMSTRO) 
INPUT PROCESS OUTPUT 


From 
CICS/VS 
DFHPCP 


CSAOPFLA 


CSAOPFLA CSADLI 


DLIDLIAL ———— 1. Check if DL/! nucleus loaded. 









DL/t Nucleus 






scD 


SCDDBMPS} | SCD 
Address 
3. Attach master partition CICS/VS 


TCA 
TCAKCRC controller. Dispatch Chain 


jaa DFHKC TYPE=ATTACH 
COND=YES 


TRANS!ID=SCDB 





—~ "A «2. Check if MPS already active. 








4. Return. 


a DFHPC TYPE=RETURN 


To 
CICS/VS 
DFHPCP 


DLZMSTRO — MPS Start Transaction CSECT DLZMSTRO 


Extended Description 


1. Module identifier (DLZMSTRO) is 
defined here. 


Write message DLZ097I if nucleus not 
loaded or not active and go to Step 4. 


. Write message DLZ1011 if flag 
SCDXECB indicates MPS XECBs 
already defined and go to Step 4. 


. Write message DLZ083] if attach 
fails with a return code in TCTAKCRC 
and go to Step 4. 
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Extended Description 





Figure 2-19. Master Partition Controller (Overview) 
PROCESS 


OUTPUT 






1. Initialize MPC task. 


(See Figure 2-19.1). 


2. Defined required XECBs for 


cross partition control. 
(See Figure 2-19.2) 


. WAITM on Start Partition, Stop 


Partition, and Stop Transaction 
XECBs. 
(See Figure 2-19.3) 


. If Start Partition XECB posted, 


attach BPC task. 
(See Figure 2-19.4) 


. If Stop Partition XECB posted, 


process stop partition requests. 
(See Figure 2-19.5) 


. lf ABEND XECB posted, the BPC 


attach failed, process the ABEND 
condition. 
(See Figure 2-19.6) 


. If Stop Transaction posted, 


terminate MPS. 
(See Figure 2-19.7) 


8. Terminate MPC task. 


(See Figure 2-19.8) 


To 
CICS/VS 


9. MPC ABEND exit routine. DFHPCP 


(See Figure 2-19.9) 


To 
CICS/VS 


DFHPCP DLZMPCOO 


Routine Label Extended Description Routine Label 
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Figure 2-19.1. MPC Task Initialization (DLZMPCOO) 
INPUT PROCESS OUTPUT 


From 
Figure 2-19 
Step 1 


CSA 
CSAOPFLA DL/I 


Interface 


CSAOPFL — —. $511. Establish SCD addressability. 


SCDADDR 








wo 


that does not have a check- 


point ID. 
em DFHTS TYPE=PUTQ 
_ DATAID=DLZTSQ00 


. Get address of the MPC Partition 
Table. 


Transaction 
Work Area 


SCD R8 


soowrcrr |[___ 


oO 


MPCPT 


Transaction 
Work Area 


o 


. Get address of CICS/VS WAITM 
ECB list. 


MPCECBLT 


~l 


. Get Address of ABEND XECB 


DLZXCBn3 : 
parameter list. 


foe] 


DLZXCBO1 


. Get address of stop partition XECB. 


PDCA 
ScD “™“ 
[scopoca _] pp PDCBPCNT 
as 2. Set addresses of MPS cleanup exit PDCBPCAT 
routines in PDCA. PDCSYSTT 
. Issue message DLZ122I for 
DLZTSQ00 
peezrsoae) each TSO entry for MPS 
Restart. 
: Gap oF TYPE=GETQ 
DATAID=DLZTSQ00 
. Reinitialize each TSO entry 


Co 


© 


. Get maximum number of concurrent 


MPCNPTE 
‘ batch or pseudo partitions. 


To 
Figure 2-19 
Step 2 
DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 
Extended Description Routine Label _ Extended Description Routine Label 


1. Module identifier (DLZMPCO0) is DLZMPCO00 | DLZMPCOO 5. The transaction work area is a logical 
defined here. MPCSTART extension of the TCA. 


MPC is attached by the MPS start 9. This controls the number of partition 


transaction (DLZMSTRO) via CICS/VS. table entries that will be initialized 
Ignore request if DL/I is not defined later. This is an equated value in the 
to CICS/VS or the nucleus is not - partition table DSECT (DLZMPCPT). 
loaded. 








WGI Jo Ayredo1g—jepazeyy posuedy] 





Z WOT9S 


1ye1odQ jo poy 


uor 


6lI-c 





Extended Description Routine Labe! 


{ 
1. The XECB identifier is an alphabetic |DLZMACOO | MPCDEFIN 
character assigned by this routine. 
There is no relation between this 
identifier and any particular batch 
/ partition. The addresses of an 
ABEND XECB and the stop partition 
XECB are placed in each partition 
table entry even though no XECBs 
have been defined at this point. 
The currently defined values of ‘n’ 
are the alphabetic characters L-A. 
. DLZXCBO0 is the XECB name to stop 
the MPS transaction. 








Figure 2-19.2. MPC Define XECBs (DLZMPCOO) (Part 1 of 2) 


iNPUT PROCESS OUTPUT 
From a 
Figure 2- 
R4 MPCPT Step 2 DLZXCBO2 
a 
R5 DLZXCBn3 1. Initialize Partition Table entries and 
C.J a————4, assign first one for first batch 
= Partition to be started. 
Co) ee 
OLZXCBOO ‘apa tem 2. Define stop transaction XECB. sla 
qm) XECBTAB TYPE=DEFINE 
XECB=DLZXCB00 
ACCESS=XPOST 
3. If error return on DEFINE: 
A. Issue message DLZ082I. 
B. Delete any XECBs defined. 
C. Go to Figure 2-19, Step 8, 
to terminate MCP. 
DLZXCBO1 a XECBTAB 


4. Define Stop Partition XECB. Entry 


a XECBTAB TYPE=DEFINE 
XECB=DLZXCB01 
ACCESS=XPOST 


5, if error return on DEFINE, 
go to step 3. 


DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


Extended Description Routine 


3. In all steps where a message is issued: 

e R1 is set up with the applicable 
message parameter list. 

e Control is passed to the MPC 
message writer at MPCMSGRT. 

e BALR to the DL/I online message 
module, DLZERMSG, to write the 
message. 


4. DLZXCBO01 is the XECB name to stop 
a partition. 


MPCPT 





Transaction 
Work Area 


ae r= 


Transaction 
Work Area 


[)} wececaur 





Label 


XECBDFN1 











A 


) 


of 
“he 


Figure 2-19.2. MPC Define XECBs (DLZMPCOO) (Part 2 of 2) 


INPUT PROCESS 


ror eA 6. Define start partition XECB. 
and XECBTAB TYPE=DEFINE 
XECB=DLZXCBO2 
ACCESS=XPOST 


7. If error return on DEFINE, go to 
Step 3. 


8. Indicate MPS active. 


9. Set ABEND exit routine for 
Master Partition Controller. 


= DFHPC TYPE=SETXIT 
ROUTINE=MPCABEXT 


TCA SYS TCA ree 10. Establish special task dispatch 


status for MPC. 
SYSCOM 7 
— — — mp 11. Get number of partitions defined 
during system generation (SYSGEN) 
and adjust the partition 
identification table. 
To 
Figure 2-19 
Step 3 
DLZMPCOO — Master Partition Controller CSECT 
Extended Description Routine Label Extended Description 


6. DLZXCBO2 is the XECB name to start 
a batch partition. 


XECBDFN2 11. Adjusts the partition identifier 
table to the form BG, Fn-1, “Fy 
where n is the number of VSE 
partitions defined during SYSGEN. 
This is done so that a printable 
partition identifier may later be 
computed from the PIK, which is 
passed from the batch partition on 
a start partition request. 


. Turn on SCDXECB at SCDDBMPS 
and issue message DLZ093I to indi- 
cate MPS started. 


. MPCABEXT routine is within this 
module (see Figure 2-19.9). 


. Turn on the DCAAPURG flag in the 
DCAFLGI1 byte of the DCA for this 
task. When a CICS/VS task control 
will not count this task as part of 
AMXT nor will it take the short wait 


interval if this is the only waiting task 
in the CICS/VS system. 





OUTPUT 


XECBTAB 
En 





n 
Q 
} 


SCDDBMPS 
CAPCERA 


+ 
Qa 
> 


> 


AFLG1 


PARTIDTB 


DLZMPCOO 


Routine Label 
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Figure 2-19.3. MPC Wait (DLZMPCO00) 


INPUT 
From 


PROCESS 


Figure 2-19 


Step 3 


Transaction 
Work Area 


MPCPT 


a 


MPCECBLT 


CICS/VS 
WAITM 
ECB LIST 














DLZXCBO2 =_~_ 
XECB MPCECBLT 


A (Start Rtn) 
A (MPCPT Entry) 


OLZXCBOO 
XECB 


A (Stop Transact Rtn) 


DLZXCBO01 
XECB 
DLZXCBn3 













DLZMPCOO — Master Partition Controller CSECT 
Extended Description 


1. Note that the ABEND XECB 
(DLZXCBn3) pointer is placed in the 
ECB list only when the BPC attach 
is unsuccessful. 


. The XECBs are posted on the following 
conditions: 


DLZXCBO2 
e DLZMPIOO — activate BPC for 
a specific partition. 


DLZXCBOO 
e DLZMSTPO — terminate MPS. 


DLZXCBO1 
e DLZBPCOO — normal batch EOJ; 
error conditions in BPC or batch 
partitions. 
e DLZODPO1 — ABEND. 


DLZXCBn3 
e DLZMPIOO — BPC attach failure. 


. Before going to the appropriate 
routine, the post bit in the XECB 
is turned off. 





1. Issue a wait on ECB list. TcATCEA _| 


ee) DFHKC TYPE=WAIT 


DCI=LIST 


OUTPUT 


TCA MPCECBLT 


CICS/VS 
WAITM . 
ECB LIST 









4, 2. When control returns, scan the 


XECBs for one that is posted. 


3. Return to step 1 if no XECBs 


are posted. 


5, 4. Determine what action is to be 


taken for the first XECB found 


posted. 


Routine Label 


DLZMPCO00 | MPCWAIT 





DLZ 


To 

Figure 2-19 
Step 4, 5, 
6, or 7 


DLZMPCOO 


Extended Description Routine Label 
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- Figure 2-19.4. MPC Start Processing (DLZMPCOO) (Part 1 of 3) 


INPUT 
R7 From 
Figure 2-19 
Step 4 


S DLZXCBO2 
A(MPCPT Entry) 


MPCPT Entry 


MPCAXECB 





MPCPT 
Entry 


R15 


Ri 
we DLZXCB1 
XCBIFPIK 


PARTIDTB 


ae 


DLZXCB1° 


XCB1FLAG _ 


DLZTSQ00 





eae | 


DLZXCB1 


XCBICPID 


OLZTSQE 


TSQCPID 





MPCPT 
Entry 


MPCAXECB 


DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


! 


PROCESS 


1. Initialize for Start Partition processing. 
2. Reset start partition XECB. 


= XECBTAB TYPE=RESET 
XECB=DLZXCB02 


3. Locate MPS Batch XECB. 
suey XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 


If error return on CHECK: 
A. Issue message DLZ082I. 
B. Go to Step 18. 


Ll/ 
> 


Map the PIK into a printable partition 
identifier of the form BG,. F1, etc. 


6. If MPS batch job was restarted: 


A. Perform checkpoint 1D 
verification. 


DFHTS TYPE=GETQ 
DATAID=DLZTSQ00 


B. If verification was successful, 
go to step 8. 


7. Assign a TSO entry for MPS 


Restart. 
DFHTS TYPE=PUTQ 
DATAID=DL2TSOO00 


l/ 


8. Define ABEND XECB. 


ex} XECBTAB TYPE=DEFINE 
XECB=DLZXCBn3 
ACCESS=XWAIT 


Routine Label Extended Description 


1. This routine is entered from the MPC | DLZMPCO0| MPCSTRP 5. The PIK is in printable form. 


Wait Routine when a Start Partition 
XECB (DLZXCBO02) is posted 
(XPOST) by DL/I MPS Batch Module 
(DLZMPI00). 


Register 7 contains the address of 


the XECB posted. 


The XECBTAB/CHECK macro is 
issued to obtain the address (in 
register 14) of Batch Initialization’s 
XECBTAB entry for the specific 
partition. 


8. DLZXCBn3 is the XECB name for 
handling an ABEND situation for a 
specific partition. 


XECBNICK 


OUTPUT 


MPCPT Entry DLZXCBn3 


R14 


MDCFREG 
R1 
A (DLZXCBn1) 


MPCPT Entry 
MPCPIDHX 


DL2ZTSQE 


DLZTSQ00 


XECBTAB 
Entry 


DLZMPCOO 
Routine Label 


MPCCHKOK 
MPCGETPI 


MPCSTRPC 
XECBABN 

















Figure 2-19.4. MPC Start Processing (DLZMPCOO) (Part 2 of 3) 


INPUT PROCESS OUTPUT 
R15 
4 — — > 9. terror return on DEFINE: 
A. Issue message DLZ082!. 
B. Reinitialize TSQ entry. DLZTSQ00 


DFHTS TYPE=PUTQ 
DATAID=DLZTSQ00 


Notify MPS batch (DLZMPI00) of 
DEFINE failure. 

If XPOST, successful, go to Step 18. 
Issue message DLZ0841. 

. Go to Step 18. 


mmo © 


beens 


10. Set Partition Table entry active. were Enuy 
i hadlardleal 
ork Area 
=> 11. Scan the Partition Table entries for 
MPCPT an inactive entry and make it available 
C7 as the entry for the next batch partition 
to start. DLZXCBOZ 
fd 
RS 12. Set MPCPT entry for BPC Ace! 


13. Attach Batch Partition Controller 


(DLZBPCOO). 
j= DFHKC TYPE=ATTACH 
TRANSID=CSDC 
COND=YES 
TCA 14. If BPC attach is successful, go to Step 18. 
R14 > 15. Notify MPS Batch (DLZMP 100) of DLZXCBn1 


A (XECBTAB) 


BPC ATTACH failure. 





MPCPT 
R1 ea XPOST XECB=DLZXCBn1 Entry 
A (DLZXCBn1) MPCFLAG 


DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


Extended Description Routine Label! Extended Description Routine 


If there are no inactive entries set 
DLZXCBSP to zero. 


A ‘X31’ in TCAKCRC indicates 
an ATTACH failure. 


The BPC ATTACH failed flag. 
MPCERR, is turned on. 








Label 
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Figure .2-19.4. MPC Start Processing (DLZMPCOO) (Part 3 of 3) 
INPUT PROCESS 
R15 


[| —— > 16. Ino error on XPOST: 


A. Move ABEND XECB address to 


Pilea ieceae: the end of the CICS/VS WAITM 


ECB list. 


MPCAXECB 





B. Go to Step 18. 


R15 
17. If error return on XPOST: 


A. Issue message DLZ0841. 


DLZXCBn3 


B. Delete ABEND XECB. 


E 
jp XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 
C. Reinitialize TSO entry for 
MPS Restart. 
¢==) DFHTS TYPE=PUTO 
DATAID=DLZTSQ00 





D. Set partition table entry inactive 
and clear error indicator. 


E. If there is no partition table 
entry available for the next batch 
partition, make this one available. 


DLZXCBSP 


18. Return to MPC Wait routine. 


DLZMPCOO - Master Partition Controller CSECT 
Extended Description . Routine Label Extended Description 


16.A The CICS/VS WAITM ECB list is 
updated to include a pointer to the 
ABEND XECB pointer to provide 
recover. 


17.B If error return on DELETE, issue 
message DLZ0821I. 


D. The flags MPCPACT and 
MPCERR are turned off. 


E. If DLZXCBSP is zero, there is no 
inactive entry other than the 
one just made inactive. 





OUTPUT 


MPCECBLT 


: ; 


MPCFELAG 
DLZTSQ00 





DLZXCBSP 


To 
Figure 
2-19 
Step3 bt zMPcoo 
Routine Label 
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Figure 2-19.5. MPC Stop Partition Processing (DLZMPCOO) (Part 1 of 2) 


INPUT 





DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


MPCFLAG = 


PROCESS OUTPUT 
From 
Figure 2-19 
Step 5 
DLZXCBO14 
—_--—---— 1. Purge TSQ, if requested. 
eis Gx) DFHTS TYPE=PURGE 
ae =) DATAID=DLZTSQ00 
MPCPT Entry 
2. Scan MPCPT for an entry with stop 
partition request. At end of MPCPT, 
go to Step 9. 
MPCPT 
Entry TCA 


> 3. If “wait for ABEND” switch is on, 
put ABEND XECB on CICS WAITM 
ECB list. Go to Step 2. 


4. Reinitialize TSO entry, if needed. 


MPCFLAG 


MPCPT Entry 


DLZTSQ00 
MPCFLAG1 5 c= DFHTS TYPE=PUTO 
DATAID=DLZTSQ00 MPCPT 
Entry 


5. Set partition inactive and clear stop 
Partition request. 


DLZXCBn3 


-1___+4 6, Delete ABEND XECB. 
eum XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 


MPCPT 
Entry 
7. If stop transaction (MPS) requested 


also, continue; otherwise, return to 
Step 2 to check next MPCPT entry. 


DLZMPCOO 


Routine Label Extended Description 


1. This routine is entered from the MPC 
wait routine when a stop partition 
XECB (DLZXCB01) is posted by DL/I 
MPS Batch Partition Controller 
(DLZBPC00) or Task Termination 
(DLZODP01) or Purge Temporary 
Storage Transaction (DLZMPURO). 


2. Ascan is done on every entry in the 
partition table to avoid losing a stop 
partition request on a double post. 


3. Flag MPCABWT in MPCFLAG 
indicates that the ABEND XECB 
(DLZXCBn3) should be waited on. 


XECBDELA 


6. If error return on DELETE, issue 
message DLZ0821. 





TCATCEA 


MPCFLAG 


Routine 


~ 


MPCECBLT 





Label 








Figure 2-19.5. MPC Stop Partition Processing (DLZMPCOO) (Part 2 of 2) 
INPUT PROCESS 


lpLzxcesp_ [~———————"> 8. If there is no partition table entry 
available for the next starting batch 


partition, make this entry available 
and return to Step 2 to check the 
next MPCPT entry. 





9. If stop transaction (MPS) has not 
been requested, go to Step 12. 


by 10. If all of the partitions are inactive, 
go to Figure 2-19, Step 8 to terminate 
MPC. 


11. If an active partition is found: 


A. Check if XECB for batch 
partition is still defined. 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 


B. If batch partition is still active, 
go to Step 12. 


C. Set cancel BPC indicator in 
MPCPT. 


D. Turn on BPC ABEND XECB 
POST bit. 


12. Return to MPC Wait routine. 


“DLZMPCOO — Master Partition Controller DSECT 


Extended Description Routine Label Extended Description 


10. Flag MPCPACT in MPCFLAG indi- 
cates whether the partition is active 
or inactive. 


11. A partition is active if MPCPACT is 
on. 


A. The XECBTAB/CHECK macro 
is issued to determine if the batch 
partition is still defined. 


Bit MPCCNBPC in field 
MPCFLAGI in the MPCPT is 
set on. 


. R6 contains pointer to the BPC 
ABEND XECB (DLZXCBn3). 
The XPOST macro is not needed 
to tum on the POST bit because 
the ABEND XECB is defined by 
MPC. 


Figure 2-19 
Step 3 





OUTPUT 


DLZXCBSP 








R14 


A(XECBTAB) 


R1 


A(DLZXCBn1) 





MPCFLAG1 


[meccnsec_] BPC 


DLZXCBn3 


XECB 


DLZMPCOO 


Routine 


Label 
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Figure 2-19.6. MPC ABEND Processing (DLZMPCO0) 


INPUT 


From 
Figure 2-19 
Step 6 


MPCPT 
Entry 


MPCAXECB ae eo 


DLZXCBn3 


XECB 





MPCECBLT R7 


MPCPT 
Entry 


MPCFLAG — 


MPCPT 





|oizxcese. Fy—————>> 7. If there is no partition table entry 


DLZMPCOO — Master Partition Controller CSECT 
Extended Description 


1. This routine is entered from the MPC 
Wait routine when an ABEND XECB 
(DLZXCBn3) is posted (XPOST) by 
DL/I MPS Batch Initialization Module 
(DLZMPIO00) on a BPC ATTACH 
Failure. 


Register 7 contains the address of the 
XECB posted. 


. Flag MPCABWT is the “wait for 
ABEND” flag. 


; If error return on DELETE, issue 
message DLZ082I. 


. Flags MPCPACT and MPCERR are 
turned off. 








PROCESS OUTPUT 


1. Locate MPC Partition Table entry to 
which this ABEND XECB belongs. 


45, 


2. Remove ABEND XECB pointer from MPCECBLT 
CICS/VS WAITM ECB list. 


» 3. If “Wait for ABEND” flag is on in the 
partition table entry, then: 


A. Set ‘Wait for ABEND” flag off. 


B. Post the stop partition XECB 
(DLZXCBO01). 


C. Go to Step 7. 


XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 
5. Reinitialize TSQ entry for MPS Restart. 
DFHTS TYPE=PUTQ 
DATAID=DLZTSQ00 


6. Set partition inactive and clear error 
indicator. 


DLZTSQO0 | 


MPCPT 
Entry 


MPCFLAG 


DLZXCBSP 


3 — 


available for the next batch partition 
to use, make this partition table entry 
available. 


8. Return to MPC Wait routine. 


To 
Figure 2-19 DLZMPCOO 
Step 3 
Routine Label Extended Description Routine Label 


XECBDEL3 


MPCABDEC 
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Figure 2-19.7. MPS Termination (DLZMPCOO) (Part 1 of 2) ’ 
INPUT PROCESS QUTPUT 


From 
Figure 2-19 
Step 7 


DLZXCBO2 —~, 1. Delete Start Partition XECB. 


¢anap XECBTAB TYPE=DELETE 
XECB=DLZXCB02 


2. Delete stop transaction (MPS) XECB. 


XECBTAB TYPE=DELETE 
XECB=DLZXCB00 


DLZXCBOO 


3. Set stop transaction (MPS) request MPCPT 
in MPCPT entries. Entry 


ecriac_} 


DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from the MPC 
Wait routine when the Stop Transaction 
(MPS) XECB (DLZXCBO00) is posted 
by DL/I Stop Transaction Task 
(DLZMSTP0). 


If error return on DELETE, issue 
message DLZ082I. 


. If error return on DELETE, issue 
message DLZ082I. 


3. Flag MPCTSTP is turned on. 








Figure 2-19.7. MPS Termination (DLZMPCOO) (Part 2 of 2) 
PROCESS = OUTPUT 


INPUT 


MPCPT Entry 


MPCFLAG I 


MPCPT Entry 


MPCPID 






DLZMPCOO — Master Partition Controller CSECT 


Extended Description 


4. A partition is active if MPCPACT is on. 


5. A. The XECBTAB/CHECK macro is 
is issued to determine if the batch 
partition is still defined. 


. Bit MPCCNBPC in field MPCFLAG1 
in the MPCPT is set on. 


. R6 contains pointer to the BPC 
ABEND XECB (DLZXCBn3). The 
XPOST macro is not needed to turn 
on the POST bit because the 


ABEND XECB is defined by MPC. 


4. Scan MPCPT entries for an active 
partition. Go to Step 6 if no 
active partition is found. 





: at ao R14 
5. If an active partition is found: 
A. Check if XECB for batch partition a 
still defined. 
(amp XECBTAB TYPE=CHECK 
XECB=DLZXCBn1 
B. If batch partition still active, 
go to Step OF. 
C. Set cancel BPC indicator in MPCPT. pala ol 
Coes 
D. Turn on BPC ABEND XECB eee 
POST bit. [xecs 
E. Go to Step 9G. 
F. Issue message DLZO08Gi. 
G. Return to MPC Wait routine 
To 
Figure 2-19 
6. Go to MPC Termination. Step 3 
To 
Figure 2-19 
Step 8 
DLZMPCOO 
Routine Label Extended Description Routine Label 





XECBATCH} 
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Figure 2-19.8. MPC Stop Transaction Processing (DLZMPCOO) 
INPUT PROCESS @ OUTPUT 





From 
Caller 


DLZXCB0! — —} 1. Delete Stop Partition XECB. 


Gam XECBTAB TYPE=DELETE 
XECB=DLZXCBO1 


2. Indicate MPS inactive. ge0 
3. Issue message DLZ094I. 
4. Return to CICS/VS. 


(DFHPC TYPE=RETURN) 


To 
CICS/VS 
DFHPCP 


DLZMPCOO — Master Partition Controller CSECT DLZMPCOO 


, Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered when MPS is 
to be terminated normally or 
abnormally. 


If error return on DELETE, issue 
message DLZ082I. 


. Flag SCDXECB at SCDDBMPS is 
turned off and message DLZ094I 
is issued to indicate MPS stopped. 


CICSRTN 
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Figure 2-19.9. MPC ABEND Exit Routine (DLZMPCOO) (Part 1 of 2) 
INPUT PROCESS OUTPUT 
From 
cics/Vs . 
1. Indicate MPS inactive. 


scD 


pizxcee2 a 
. 2. Delete Start Partition XECB. 

= XECBTAB TYPE-DELETE 

XECB=DLZXCB02 
PLERC BOO DEKE 3. Delete Stop Transaction (MPS) and 
[—... J a | Stop Partition XECBSs. 

== XECBTAB TYPE=DELETE 
XECB=DLZXCBOO 

== XECBTAB TYPE=DELETE 
XECB=DLZXCBO1 

NEE 


| 


4. For each MPCPT entry: 
A. Locate this partition’s BPC XECB 








od RI 
—— sens) 





x= XECBTAB TYPE=CHECK 
XECB=DLZXCBn2 





Ri 


C—T DLZXCBn2 


B. If DLZXCBn2 exists, then turn DLZXCBn2 


on the BPC XECB post bit. 
C. Delete ABEND XECB. 


ax} XECBTAB TYPE=DELETE 
XECB=DLZXCBn3 


5. Return to Step 4 to get next MPCPT 
entry. At end of entries, continue to 
next step. 





DLZMPCOO — Master Partition Controtler CSECT DLZMPCOO 


Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from CICS/VS 
if an ABEND occurs in MPC. Linkage 
was established through DFHPC 
TYPE=SETXIT in Figure 2-19.2. 


Flag SCDXECB at SCDDBMPS is 
tumed off to show MIPS as inactive. 


. Note that the XPOST macro is not 
needed to turn on the POST bit 
because BPC XECB (DLZXCBn2) is 
defined in the same partition as this 
module. DLZXCBn2 is defined by 


DLZBPCOO. 











Figure 2-19.9. MPC ABEND Exit Routine (DLZMPCOO) (Part 2 of 2) 
INPUT PROCESS 


TCA 6. Set information for message 
ie a DLZ104I and issue it. 
[TCAPCPSW | 


TCAPCPSW 





7. Return to CICS/VS. 


DFHPC TYPE=ABEND 
ABCODE=DMPC 


DLZMPCOO — Master Partition Controtler CSECT 


Extended Description Routine Label Extended Description 


6. 


7. DMPC ABEND code defines MPC 
failure for CICS/VS dump ID. 


To 
CICS/VS 





OUTPUT 


DLZMPCOO 


Routine 


Label 
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DLZMPCOO ~ Master Partition Controller CSECT 
Extended Description 


1. This routine is entered from DLZODP 
when BPC normal termination occurs. 


3. Flag MPCPSTP indicates stop 
partition. 


5. Flag TWAEOJSW indicates that 
DLZMPI00 is waiting for termination 
processing to complete. 








Figure 2-19.10. BPC Normal Termination Cleanup Routine (DLZMPCOO) 


PROCESS 
1. Save caller’s registers and establish 
addressability. 


2. Get address of partition table entry 
for this BPC. 


3. Set stop partition flag in partition 
table entry. 


4. Post stop partition XECB. 


5. If DLZMPI00 is not waiting for 
termination to complete, go to 
Step 6. Otherwise: 


A. Post DLZXCBn1 XECB. 


Gum XPOST XECB=(1), 
POINTR6=(14) 


B. if error on XPOST, issue 
message DLZ0841. 


. Restore caller's registers. 


. Return to caller. 





OUTPUT 


MPCPT 
MPCFLAG 


DLZXCBO1 


XECB 


DLZMPCOO 


Routine Label Extended Description 


MPCBPCNT 





Routine Label 





Figure 2-19.11. BPC Abnormal Termination Cleanup Routine (DLZMPCOO) 


INPUT 
Caller 


TWAMPCE Sars 


3. Set stop partition flag in partition MPCPT 
table entry. MPCFLAG 
4. If batch XECB does not exist, 
go to Step 7. 
ax XECBTAB TYPE=CHECK R14 
XECB=DLZXCBN1 
5. Set “wait for ABEND” and error = MPCPT 
flags in partition table entry. |MPCFLAG | 
6. Post batch processor. 
= XPOST XECB=(1) 
POINTR6=(14) 
7. If BPC XECB does not exist, go to 
Step 10. 
(== XECBTAB TYPE=CHECK 
XECB=DLZXCBN2 
8. Delete BPC XECB. 
(amap XECBTAB TYPE=DELETE 
XECB=DLZXCBN2 


R13 
TWA 


MPCPT Entry 


MPCFLAG1 


DLZTSQ00 


es ses = 


DLZMPCOO — Master Partition Controller CSECT 
Extended Description 


1: This routine is entered from DLZODP 
when BPC abnormal termination 
occurs. 


. Flag MPCPSTP indicates stop 
partition. 


. Flag MPCABWT indicates wait on 
ABEND XECB and flag MPCERR 
is the error flag. 








PROCESS OUTPUT 


-———_— "1. Save caller’s registers and establish 


addressability. 


2. Get address of partition table entry 
for this BPC. 


tal 


9. If MPS Restart is in effect for this 
task: DLZTSOE 


A. Get checkpoint ID from TSQ. 
j= DFHTS TYPE=GETO 
DATAID=DLZTSQ00 
B. Issue message DLZ127!. 
10. Restore callers registers. 


11. Return to Caller. 


Caller 
DLZMPCOO 


Routine Label Extended Description Routine 


MPCBPCAT 





Label 
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Figure 2-19.12. MPS Abnormal System Termination Cleanup Routine (DLZMPCO0) 


INPUT PROCESS OUTPUT 
Caller 
R13 7 P ; 
—_— —. 1. Save caller's registers and establish 
addressability. 


2. Delete the start partition XECB. 


=m XECBTAB TYPE=DELETE 
XECB=DLZXCB02 
3. Delete the stop partition XECB. 


XECBTAB TYPE=DELETE 
XECB=DLZXCB01 


I 


4. Delete the stop transaction XECB. 


XECBTAB TYPE=DELETE 
XECB=DLZXCB00 


[ 


5. For each partition table entry: 


A. Delete BPC XECB 
= XECBTAB TYPE=DELETE 
XECB=DLZXCBN2 
B. Delete ABEND XECB 
= XECBTAB TYPE=DELETE 
XECB=DLZXCBN3 


C. tf batch XECB does not exist, 
go to Step 6. R14 


XECBTAB TYPE=CHECK {sd 
XECB=DLZXCBN1 
D. Post batch processor. 
XPOST XECB=(1) 
POINTR6=(14) 
6. Restore caller’s registers. 


7. Return to caller. 
Caller 


OLZMPCOO — Master Partition Controller OLZMPCOO 


Extended Description Routine Label Extended Description Routine Label 


1. This routine is entered from DLZODP MPCSYSTM 
when the system abnormally 
terminates. 
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Figure 2-20. Batch Partition Controller (Overview) 


INPUT « 


Extended Description 





From 
CICS/VS 
DFHPCP 


From 


CICS/VS 








PROCESS 


. Initialize BPC task. 
(See Figure 2-20.1) 


: Issue online DL/I scheduling call 
on behalf of the batch partition. 
(See Figure 2-20.2) 


. Wait on BPC and ABEND XECBs. 
(See Figure 2-20.3) 


. If BPC XECB posted, process 
batch request. 
(See Figure 2-20.4) 


. If ABEND XECB posted, terminate 
BPC. 
(See Figure 2-20.5) 


To 
CICS/VS 
DFHPCP 


. BPC abend exit routine. 
(See Figure 2-20.6) 


Routine Label Extended Description 
DLZBPCO0 | DLZBPCOO 
BPCSTART 
BPCSCHCK 
BPCWAIT 
BPCCALL 
BPCEXIT 


BPCABND 





OUTPUT 


DLZBPCOO 


Routine Label 
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Figure 2-20.1. BPC Task Initialization (DLZBPCOO) (Part 1 of 2) 
INPUT PROCESS OUTPUT 


From 
Figure 2-20 
Step 1 


CSAOPFLA 


SCADLI 


DL [L_————¢ 1. Set MPCPT address and the specific MPCPT 
Toh KER Nucleus entry the BPC was attached for in the 
oan transaction work area. Save SCD address. 
— TWAMPCPT 
TWAMPCE 
TWABPSCD 
MPCPT 





DLZNUCxx 
CSAOPFL Address 





Save the XECB ID. 


2. 
3. Save the partition ID. 
4. 


Locate the MPS batch XECB. 


DLZXCBn1 
Game XECBTAB TYPE=CHECK pede: 
XECB=DLZXCBn1 


———-—p 5. If error return on CHECK: 


A. Issue message DLZ082I. 


= 
R1 R13 -J B. Set abnormal termination condition. 
C. Go to Figure 2-20.5, Step 3, to 
terminate BPC. 
DL2ZBPCO0 - Batch Partition Controller CSECT DLZBPCOO 
Extended Description Routine Label Extended Description Routine 


1. 





Module identifier (DLZBPCO0 vmp) | DLZBPCOO 
is defined here. 


The Batch Partition Controller 
(BPC) is attached by DLZMPCOO 
when a start request has been made 
by a partition. 


On entry, R12 contains address of 
TCA and R13 contains address of 
CSA. 


DLZXCBn1 = XECB name for MPS 


batch partition, where n is the 
partition ID, which is assumed by 
DLZMPCO00. 


DLZXCBn2 = XECB name for a 
BPC for a specific partition. 


DLZXCBn3 = XECB name for 
handling an abend condition for a 
specific partition. 


XECBTAB TYPE=CHECK macro is 
used to obtain the address of MPS 
batch XECB. 





Label 








Figure 2-20.1. BPC Task Initialization (DLZBPCOO) (Part 2 of 2) 


INPUT PROCESS OUTPUT 
TWA 
6. Save DLZXCBn1 XECB name and TWAWLIST 
XECBTAB entry pointer. 


TWAXCBN1 
TWAN1PTR 


TWA 





7. Set BPCs CICS/VS WAITM ECB list 
with BPCs (DLZXCBn2) XECB address 
and the delimiter. 


TWAWLIST 


TWA 
TWABPC TWAWLIST 


Ph ——— 8. Define BPC XECB. 


XECBTAB TYPE=DEFINE 
XECB=DLZXCBn2 


ACCESS=XWAIT 





9. If error return on DEFINE: 
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A. Issue message DLZ0821. MPCPT Entry 
B. Set error indicator. 
R1 R13 ‘ se 
C. Notify batch partition of the error 
sondicn. aizxcen 
(=) XPOST XECB=DLZXCBn1 
D. Wait on ABEND XECB. 
(= DFHKC TYPE=WAIT 
MPCPT Entry 
DLZXCBn3 


MPCAXECB 
E 


. When control returns, clear ABEND 
DLZXCBn3 


XECB. 
a 


F. Set abnormal termination condition. 


G. Go to Figure 2-20.5, Step 3 to 
terminate BPC. 


10. Set BPCs CICS/VS WAITM ECB list 
11. 


XECB 





TWAWLIST 
MPCPT 
Entry 


| 
a a 


with ABEND XECB address. 





Set abend exit routine for Batch 
Partition Controller. 






DFHPC TYPE=SETXIT 
DLZXCB1 ROUTINE=BPCABND 
XCB1JBID DEAIWA 
MPCPT Entry 12. Initialize TSQ entry buffer for TWATSQE 








MPS Restart. 


13. Continue processing. 


DLZBPCOO — Batch Partition Controiler CSECT DLZBPCOO 
To 
. Seach Figure 2-20 . 
Extended Description Routine Label Extended Description Step 2 Routine Label 


8. BPC XECB (DLZXCBn2) is defined 
for cross partition communication’ 
with MPS Batch Initialization 
(DLZMINIT), MPS Batch Program 
Request Handler (DLZMPRH), and 
(DLZMTERM). 


Flag MPCERR indicates an 
error condition. 


The POST bit X‘80’ in the 
XECB is turned off. 


11. The BPCABND routine (see 
Figure 2-20.6) is within this 
module. 
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Figure 2-20.2. Issue Online DL/I Scheduling Call (DLZBPCOO) (Part 1 of 2) | 
INPUT PROCESS OUTPUT 


From 
Figure 2-20 
Step 2 


SCHDPRMC XCB1 
SCHDFUNC XCB1PSB 


1. Get parameter count, function call, 
and PSB name for DL/I call parameter 









list. 
TWASCHDC —___._}5 2. Issue DL/I scheduling call. 
BPC Register eax) DLZLI000 
Save Area BALR 


pT WABPC: 


Language 
Interface 
TWAPARMC 


TWACALL 
TWAPSBN 


MPCPT 
Entry 


_____ 5 3. If ABEND XECB is posted: 


A. Set abnormal termination 
condition. 


B. Clear the POST flag of ABEND 
XECB. 


DLZXCBn3 
XECB 





C. Go to Figure 2-20, Step 5, 
to terminate BPC. 










TCA 
TCAFCTR ———-— 4. If error return on scheduling 
call, set error indicators and MPCPT 
error codes. Entr 
MPCFLAG 
MPCRC1 
MPCRC2 
DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 
Extended Description Routine Label Extended Description Routine Label 


1. Macro DLZXCBI1 defines a DSECT 
that represents the format of the 
fields after the MPS Batch XECB 
(DLZXCBn1) used here as a 
parameter list by BPC 


Addressability to DLZXCBn1 was 
obtained by the XECBTAB 
TYPE=CHECK macro in Figure 





2-20.1, Step 5. 
. Flag MPCERR at MPCFLAG is turned BPCSCHCK 
on. 





Figure 2-20.2. issue Online DL/! Scheduling Call (DLZBPCO0O) (Part 2 of 2) 





INPUT PROCESS OUTPUT 
— 5. Save the TCA address for MPS 
Batch (DLZMPI00). MPCPT 
ntry 


Ri R14 : a 
—— -p$ 6. Notify Batch Partition that 
tTwaxcent DL/I scheduling call has been 
completed. DLZXCBn1 


| 
= XPOST XECB=DLZXCBn1 


5 7. \f error return on XPOST: 
5 A. Issue message DLZ084I. 


B. Go to Figure 2-20, Step 5, 
to terminate BPC. 


L- | 


R1 


t TWAMSG t TWABPCSV 


8. Continue processing. 


To 
Figure 2-20 
Step 3 


DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 


Extended Description Routine Extended Description Routine 


ai | 
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Figure 2-20.3. Wait on BPC and ABEND XECBs (DLZBPCO0) 


INPUT 


From 


Step 3 
TW. 


CSA 
CSAOPFLA 
ScD 
SCDDBMPS ies 


A 


TWABPSCO 


DLZXCBn2 _—— 


XECB 


DLZXCBn3 ——— 


DLZBPCOO — Batch Partition Controller CSECT 


Extended Description 





1. The XECBs are posted for the 
following conditions: 


DLZXCBn2 


®@ Process cali on behalf of batch 
partition. 


@ EOJ has been encountered in batch 
partition. 


DLZXCBn3 
@ An ABEND condition has been 


encountered in the batch 
partition. 


. Flag SCDXECB is tested in 
SCDDBMPS. 


Figure 2-20 


Vy 


PROCESS 


1. Issue WAITM on BPC and ABEND 


XECB. 
(==) DFHKC TYPE=WAIT 


2. When control returns, check if 
MPS still active. If not active, 
exit to Figure 2-20.6, Step 3. 


3. If BPC XECB posted, exit to 
Figure 2-20, Step 4. 


4. |f ABEND XECB posted: 


A. Set abnormal termination 
condition. 


Clear post bit in XECB. 


C. Go to Figure 2-20, Step 5 to 
terminate BPC. 


5. Return to Step 1. 


Routine Label 


BPCWAIT 








OUTPUT 


CATCEA 


TWAWLIST 


DLZXCBn3 


XECB 


DLZBPCOO 


Routine 
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Figure 2-20.4. Batch Request Processing (DLZBPCOO) (Part 1 of 2) 
INPUT , PROCESS OUTPUT 


From 
Figure 2-20 
Step 4 


1 
SYSTCA 
2 













System 
| TCA 


; 


PST 


PSTPREAD 


XCB1 
XCBIFLAG 


DLZXCB1 
XCBIFLAG 

DLZXCB1 
XCB1ICPID 


DLZTWAB 
ATSQE 


i 


XCB1 .. 
XCBICNT 


XxCB1 : 
XCBIHLPI 


| : 
= 
we 


COMREG 
PGMRQEP | 


R1 


XCBICNT 
Address 





DLZBPCOO — Batch Partition Controller CSECT 
Extended Description Routine 


1. This routine is entered from BPC 
WAIT routine when the BPC XECB 
(DLZXCBn2) is posted by the batch 
program request handler. 


R10 points to the call parameter list 
in the MPS Batch partition. 


. Flag TCADLIPS indicates a PST is 
available. 


. Flag PPSTMPS in PPSTIND indicates 
this is an MPS task. 





. Clear POST bit in BPC XECB. 


. If a PST is not available go 


. Indicate MPS task. 


. If batch partition at EOJ go 


. If combined checkpoint call 


. Get address of call parameter 


-— 
aay 
= 


9. Save registers. 





to Step 6. 


PST PPST 


to Step 11. 


DLZTSQE 


TSQCPID 


for MPS Restart: 


A. Move new checkpoint ID 
to TSQ entry buffer. 


B. Update TSO entry. 


” DFHTS TYPE=PUTQ 
(aan DATAID=DLZTSQ00 
list. 
If not HLPI, go to Step 12. 


Set return from call to Step 13. 





10. Get address of program request 


handler (DLZPRHOQ). 


11. Go to program request handler. 


12. Issue DL/I Call. 


Gan DLZLIOO 


Language Interface 






DLZBPCOO 


Label Extended Description Routine Label 


. Macro DLZXCBi defines a DSECT 
representing the format of the MPS 
batch XECB and following fields 
used for communication between the 
batch and online partitions. 


The End-of-Job flag is set by 
DLZMPI00 termination routine in 
the field following the XECB. 


11. BPCNOPST 


12. Entry point in the language interface BPCDLICD 
module will be ASMTDLI or 
PLITDLI, depending on whether the 


user program is assembler or PL/I. 








PSTPCT2 PPSTIND 





Figure 2-20.4. Batch Request Processing (DLZBPCOO) (Part 2 of 2) 
INPUT PROCESS OUTPUT 





R1 R14 


TWAXCBN1 | | TWAN1PTR 


——-—p 13. Notify batch partition that the 
DL/I call has been completed. 


DLZXCBn1 
ad xe0s7 XECB=DLZXCBn1 
—_— > 14. If error return on XPOST: 
- : A. Issue message DLZ084I. 
B. Go to Figure 2-20, Step 5 to 
Ri R13 _| : : 
eee 
15. Return to Figure 2-20, Step 3 
for BPC WAIT. 
16. Notify MPS Batch Partition that 
EOJ processing has completed. DLZXCBn1 
To 
Figure 2-20 
Step 5 
DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 
Extended Description Routine La Extended Description Routine 


bel 
| | 
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Figure 2-20.5. BPC Termination (DLZBPCOO) (Part 1 of 2) Figure 2-20.5. BPC Termination (DLZBPCOO) (Part 2 of 2) 














INEOT, erat PROCESS OUTPUT INPUT PROCESS OUTPUT 
Figure 2-20 
ymeS RI R13 
<=} 7 een D108 
1. Delete BPC XECB. 
oan 8. If MPC abnormally terminated, 
go to Step 12. 
== XECBTAB XECB-DELETE 
TYPE=D n 
: 9. If abornal termination go to 
2. If error return on DELETE: Step 12 e 
DLZT: 
: A. Issue message DLZ0821. 10. Reinitialize TSQ entry for MPS mee 
Restart. 
B. Set abnormal termination condition. 
DFHTS TYPE=PUTQ 
DATAID=DLZTSQ00 
MPCELAG1 
3. If BPC cancel indicator is not set, go to 11. Return to CICS/VS. 
Step 6. nap 
MPCFLAG1 DF HPC TYPE=RETURN 





This routine is entered on normal 
or abnormal termination of BPC. 


Bit MPCCNBPC is set by MPC 
when it determines that the batch 
partition no longer is active. 


Flag MPCERR indicates an 

—N error condition. 

@ 

Q A. Flag MPCPSTP indicates 
stop partition. 

5 B. Address of XECB is 
N returned in R1. 

pt 

im” 

o 

Qa 

© 

=> 
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yy 
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4. 
5. 
MPCPT 
Entry 
MPCFLAG 


MPCCNBPC 


Reset cancel BPC indicator. 


Go to Step 8. 





8. Flag SCDXECB at SCDDBMPS 
indicates if MPS is active or not. 


12. Flag TWABPCOK indicates BPC 
ABEND processing was successful. 


13. DBPC ABEND code defines BPC 
failure for CICS/VS dump ID. 








To 
CICS/VS 
DFHPCP 


6. If error on DLZXCBn2, XECB DEFINE ee 
or on scheduling call: 12. Set BPC abnormal termination TWA 
MPcPT completed indicator. . 
A. Set Stop Partition indicator in 
MPCPT. 13. Return to CICS/VS — ABEND. 
B. Locate Stop Partition 2 OO AnEcoRee. © 
XECB. CANCEL=YES 
= XECBTAB TYPE=CHECK 
XECB=DLZXCBO1 To 
R15 CICS/VS 
DFHPCP 
[ C. if error on check, go to Step 7. 
R1 DLZXxCB01 
[ D. Turn on Stop Partition XECB post DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO 
bit. 
‘DLZBPCOO — Batch Partition Controller CSECT DLZBPCOO Extended Description Routine Label Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label 


ING] 5° Aysodoig—jepias8y] posusdy] 





9EI-? 


Z SUNJOA ‘Tenuey] 9180] SA/SOd I/1d 


Figure 2-20.6. BPC ABEND Exit Routine (DLZBPCOO) 
INPUT PROCESS 
From 
Figure 2-20 
Step 6 


TCA 

1. ine caize message DLZ104I 
os and issue it. 

TWA 2. Get this task’s MPCPT entry. 


TWABPCID 


TWA 


TT ———"> 3. Delete this task’s BPC XECB. 
ee amp XECBTAB TYPE=DELETE 
XECB=DLZXCBn2 
Ri 


—— — - 4. XPOST the MPS Batch XECB. 


(ap XPOST XECB=DLZXCBn1 


5. Go terminate BPC abnormally. 


DLZBPCOO — Batch Partition Controller CSECT 


Extended Description Routine Label 








1. This routine is entered from CICS/VS BPCABND 
if an abend occurs in the Batch 
Partition Controller Module 
(DLZBPC00). 





Extended Description 








OUTPUT 


R8 


DLZXCBni 


‘o 
Figure 2-20.5 
Step 3 


DLZBPCOO 


Routine Label 
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Figure 2-21. MPS Batch (Overview) 


INPUT From PROCESS 
VSE 









1. MPS Batch Initialization. 
(See Figure 2-21.1) 


2. MPS Batch Termination. 
(See Figure 2-21.2) 


From 
Application 
Program 


3. MPS Batch Program Request 
Handler. 
(See Figure 2-21.3) 


Application 


Program 


4. MPS Batch Message Writer. 
(See Figure 2-21.4) 


5. MPS Batch ABEND Handler. 
(See Figure 2-21.5) 


Extended Description i Extended Description 


7 BORSES 





HesodC jo pope 
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OUTPUT 


DLZMPIOO 


Routine Label 
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Figure 2-21.1. MPS Batch Initialization (DLZMP100) (Part 1 of 4) 


INPUT PROCESS 


From 
Figure 2-21 
Step 1 


_ __———_» 1. Read parameter statement and check for 
validity. 


COMRG Macro 





OPEN Macro 


GET Macro 


PUT Macro 


LITT 


lOAREA 


DLI, progname, psbname 


> 2. If data is valid go to Step 5. 


> 3. if data is invalid, let operator reenter 
parameters. 


PUT Macro 


GET Macro 


lOAREA 


CANCEL 





IT 





CANCEL Macro 


1OAREA 5, Save progname and psbname. 


DLI.progname,psbname 


PROGNAME 


| —________» 7. Load Application program. 


DOS/VS LOAD TXT=NO Macro 


Core Image 
Library 





LOAD Macro 


IT 


DLZMPI00 — MPS Batch CSECT 


‘Extended Description Routine Label 


1. If UPSI byte bit 0 is on, input is from 
SYSLOG. Send message DLZO10A to 
have operator enter information. 


If UPSI byte bit 0 is off, input is from 
SYSIPT. 


Write message DLZ014A if end of file 
on SYSIPT. 


. Write message DLZ087A if data 
invalid. 


. Read operator reply to decide if more 
parameters provided or if job cancelled. 


. If program not found, write message 
DLZ012I and cancel job. 





—— —-} 4. Return to Step 1 to recheck data or cancel. 


Extended Description 


OUTPUT 


al 


IOAREA 


lOAREA 


Ee 


PROGNAME 


USERPROG 


DLZMPI00 


Routine 





PSBNAME 





aa | 


Label 





Figure 2-21.1. MPS Batch initialization (DLZMPIOO) (Part 2 of 4) 
INPUT PROCESS 
COMREG 


Cee Sere 8. Get identifier, make printable, and 


save for online to use in message. 


DLZXCB1 

b> 9. If MPS Restart requested, create 

COMREG JDBID for TSQ entry in online 
partition. 


From 
Figure 2-21.3 GETIME Macro 


Step 7 





10. Go to Step 12. 


UPSISAVE 
SYSIPT 






11. Perform restart initialization. 


ad 
=) 







OPEN Macro 





GET Macro 
DLT 
Name=DLZMPSO 12. Set lock. 
DLZxCB02 


13. Check if MPS is active. 
ep XECBTAB TYPE=CHECK 
XECB=DLZXCBO2 


14, Get partition identifier and modify XECB 
name for ail that have N in name. 


DLZXCBO2 





15. Define MPS Batch XECB for this 
partition. 
XECBTAB TYPE=DEFINE 


XECB=DLZXCBni. 
ACCESS=XWAIT 


I 


DLZMPI00 — MPS Batch CSECT 


Extended Description 


Routine Label Extended Description 


12. This prevents another MPS batch task 
from starting or stopping while this one 
is initializing. The value for N in Step 
10 is updated during this process and 
must complete before another batch 
task can use it. 

FLLOCK in FLAG2 indicates lock is 
set if 1, is not set if 0. 


is not successful. 


following fields. 
. If the MPC XECB (DLZXCBO02) is not 

found, write message DLZ089I. If there 

is no ID available in the partition table, 

write message DLZ088I. Both messages 

are followed by cancel. 





OUTPUT 
DLZXCBO1 


XCB1PPIK 


FLAG2 


FLLOCK 


R1 


DLZXCBO2 
address 


DLZXCB1 


XCB1JBID 










| DLZXCBN3 | LZXCBN3 
DLZXCBN2 
| DLZXCBN1 | LZXCBN1 


R14 












DLZXCBn1 


OLZMPI00 


Routine 


15. Write message DLZ082I if DEFINE 


Following MPS batch XECB (DLZXCB 
(DLZXCBn1) are parameter fields used 
in communicating with the online 
partition. Macro DLZXCBI contains the 
‘DSECT which describes this XECB and 


PSBNAME Address 
PROGNAME Address 
Partition PIK 


R14 


XECBTAB 
entry address 











Label 


XECBDEF1 
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Figure 2-21.1. MPS Batch Initialization (DLZMPIOO) (Part 3 of 4) 


INPUT 


ABNDAB AABNDPC 


ABSAVEAR PCSAVEAR 





MPCPT Entry 


MPCFLAG1 
MPCRSTRC 





NAME=DLZMPSO . 


RO 


DLZMPRH 
Address 


DLZMPIOO — MPS Batch CSECT 
Extended Description 


17. Notify the online partition 
(DLZMPC00 specifically) that an 
MPS batch job is ready to execute 
and write batch started message 
DLZ08 1] if XPOST successful. 


If XPOST unsuccessful, delete MPS 
batch XECB (DLZXCBn1), write 
message DLZ084I, and cancel. 


. Wait is made for DLZBPCO00 to post 
the MPS batch XECB (DLZCBn1) to 
notify us it is initialized and has 
completed a DL/I scheduling call 
for us. 


[Li 
TAI 





PROCESS OUTPUT 
16. Set up program check and ABEND 
handling routines. PC Option 
STXIT AB Table 


STXIT PC 


1 


DLZXCB02 


XECB 


- Wake up Master Partition Controller. 
XPOST XECB=DLZXCB02 


18. Wait until BPC started. 
XWAIT XECB=DLZXCBn1 


bh 19. If error return on XWAIT: 
A. Write message DLZ0841. 


B. Go to Figure 2-21, for MPS Batch 
ABEND Handler. 


| 20. Check for and process any MPS 
Restart error conditions. 


21. Check if online partition successfully 
initialized for MPS. 


XECBTAB TYPE=CHECK 
XECB=DLZXCBn3 


FLAG2 
22. Reset lock. 
COMREG 
23. Move program request handler Pea 


address to COMREG. 


em) 008 


DLZMPI00 


Routine Label Extended Description Routine 


21. If online side successfully initializes, 
XECB DLZXCBN3 is created. 


Write message DLZ0991 if DLZXCBN3 
did not exist. 
Write message DLZ095I and the return 
code if a scheduling error indicated. 
Write message DLZ0851 if BPC could 
not be attached. 

22. No more need to serialize. 


23. 


Label 
XECBCHK3 | 











Figure 2-21.1. MPS Batch Initialization (DLZMPI00) (Part 4 of 4) 


INPUT PROCESS 
DLZXCB1 
_ 24. If MPS Restart is not required, 
T go to Step 27. 


| 
L_ B25. If job was restarted: 


A. Complete restart initialization. 
B. Issue message DLZ0811 to 
indicate job restarted. 


C. Return to MPS program request 
handler. 


26. Create copies of PCBs from online 


TCA 
TCADLPCB ee ae 
Partition in batch partition. 


j == GETVIS Macro 
MPCPT 


Entry "TCA 27. Set up indirect list for PL/I PSBs. 


MPCTCA TCASYAA 
TCADLPCB 


Syitomn >28. Set up parameter list for application 
TCA program. 

TCADLISA 

PST 

PSTPSB 

PDIR 

PDIRADDR 

PDIRCODE 





29. Locate BPC XECB. 


==) XECBTAB TYPE=CHECK 


30. Exit to application program. 


Application 
Program 


31. Go terminate. 


DLZXCBn2 


USERPROG 


DLZMPI1O00 — MPS Batch CSECT 


Extended Description Routine Label 


27. PLILPI 
28. If PL/I — a three-word list is set up 

with pointers to PCBs in PLITABLE, 

amount of dynamic storage, and start 

of dynamic storage area for PL/I. 

If COBOL, RPG II. or Assembler — R1 

points to first PCBADDR. 

The language indicator is set in the 

parameter field following the MPS 

batch XECB (See DLZXCB1 Macro). 

. An application program runs as a i 
subroutine of DLZMPIO0. 


Extended Description 








OUTPUT 


Te 


Figure 2-21.3 
Step 18 


XCB1 


XCBIFLAG 
EIPPLIPS 
EIPPLIPG 


COBOL, RPG iI, 
or Assembler PL/I 


Ri R1 


PCB 
PLITABLE Address 


DSA Size 
DSA Start 


R13 


SAVEUSER 


To 
Figure 2-21 
Step 2 


DLZMPI00 


Routine Label 
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Figure 2-21.2. MPS Batch Termination (DLZMPI00) 





INPUT PROCESS OUTPUT 
From 
Figure 2-21 
Step 2 
DTL FLAG 2 
——————"S 1. Set lock for termination. 
xcB1 DLZXCBn2 
2. Notify online batch partition controller i 
for this partition to terminate. |XCBIFLAG | 
=) XPOST XECB=DLZXCBn2 
R15 3. If error return on XPOST: 
3 A. Write message DLZ090!. 
B. Go to Figure 2-21, Step 5, 
to ABEND. 
DLZXC&n1 4. Wait for online BPC to terminate. 
== XWAIT XECB=DLZXCBn1 
R15 5. if error return on XWAIT: 
Ea A. Write message DLZ0901. 
B. Go to Figure 2-21, Step 5, 
_to ABEND. 
DLZXCBn1 >6. Delete MPS batch XECB. 
ama) XECBTAB TYPE=DELETE 
XECB=DLZXCBn1 
DTL FLAG 2 


| NAME=DLZMPSO[_______ > 7. Reset lock. 


=) EOJ Mecro 


To 
VSE 


OLZMPIOO — MPS Batch CSECT DLZMPIO0 


"Extended Description Routine Label Extended Description Routine Label 





This prevents another MPS batch 
task from starting or stopping 
while this one is terminating. 
The value of N is being set up 
for reuse during this locked 
interval and must complete 
before another MPS batch task 
can use it. 


This routine is entered when 


the application program com- 
pletes. 


If the application program is 
written in PL/I code, the 
SCDLIPLI flag in the SCD 
is reset to 0. 


Macro DLZXCBI defines a 
DSECT representing the 
format of the MPS batch 








XECB and following fields used 
for communicating with the 
online partition. 


The end-of-job flag is set to tell 
DLZBPC00 the batch partition 
is at EOJ and the BPC XECB is 
posted to tell DLZBPCO0 to stop. 


No more need to serialize. 
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Figure 2-21.3. MPS Batch Program Request Handler (DLZMPIOO) (Part 1 of 3) 


INPUT 


From 
Application 
Program 


R13 R1 


Address 


hae 
PCSAVEAR 
T iy 
L¥ 
era 


OLZXCB1 
XCB1FLAG 





DLZXCB1 


XCB1PARM 


ane = 


QO Oo 
2)x |h 
D x 
m a 
a) bee 


CHKPTID 


SAVOPCB 


Extended Description 


1. This routine is entered on each call to 
DL/I made by the application program. 


During the first entry to DLZMPRH, the 
PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/I. DLZMPRH also 
sets/resets a switch (SCDLIPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or PL/I 
code. This is done to enable high level 
language debugging for PL/I to give 
diagnostic information if a program 
check occurs in PL/I code. 


PL/I reissues STXIT PC when application 
program starts. Therefore, DL/I must 
reissue STXIT to get control after PL/I 
issues its STXIT PC. 


. Reset PC STXIT if first call from PL/I. 


. Move parameters to area following MPS 


. If MPS Restart is not on, go to 


PROCESS OUTPUT 






SAVER13 R2 


Address 
PC Option 
Table 


. Ensure parameter list does not contain 


more than 18 parameters. 


. Check if all user parameter list addresses 


which should be, are within batch 
partition. 


batch XECB (DLZXCBn1). ie 
IXCBICNT _| 


XCBICNT 


XCBIPARM 


Step 9. 





. Ensure valid function code and 


PCB address in call parameters. 


. If a checkpoint call: 


A. Move VSE checkpoint ID from DLZXcB1 
COMREG to batch communica- 
tion area. 


B. If restart has occurred, go to 
MPS batch initialization 
routine. 


XCBICPID 


To 


es XECBTAB TYPE=CHECK Figure 2-21.1 
XECB=DLZXCBN1 Step it 





: : 5 2 DLZXCB1 
. Substitute corresponding online SEnEBARM 
PCB address in call parameters. 
Routine Label Extended Description Routine Label 


2. Write message DLZO911 if more than ~ COUNTLP 
18 parameters. 


. Ensure call list and addresses it points 
to are within batch partition (except 
for PCB). If PL/I, ensure that pointers 
pointed to by pointers, are within the 
batch partition. 


CHKMOVE}1 


Write message DLZ092I if there is a 
bad address and ABEND. 


. Macro DLZXCB1 defines the DSECT 
describing the DLZXCBn1 XECB used 
for communicating with the online 
batch partition controller 
(DLZBPC00). 




















Figure 2-21.3. MPS Batch Program Request Handler (DLZMPIOO) (Part 2 of 3) 








INPUT PROCESS OUTPUT 
9. Notify BPC a DL/I call is ready to be DLZXCBn2 
processed. 
= XPOST XECB=DLZXCBn2 
Eereenl ____ _K 10. Wait for BPC to complete processing 
a the call. 
XWAIT XECB=DLZXCBn1 

DLZXCBO2 
Leas — —p 11. If an error occurred during online 

processing, go to Step 19. 

MPCPT 

MPCPT System 
Entry TCA 
— 7/12. If error return code in TCA, go to Step 19. 
TCA 

System 

TCA — > 13. If no PST, go to Step 17. 
s 
TCA PST —~ -—p 14. !f a task or system ABEND, go to Step 19. 

PST PST 







PSTUSER 
PSTSEGL 
PSTSEG 


Retrieved 
Segment 


ted 


DLZMPIOO — MPS Batch CSECT 







Extended Description Routine Label 
> 


9. If error return on XPOST, write mes- 
sage DLZ084I, then ABEND. 


10. If error return on XWAIT, write mes- 
sage DLZ084I, then ABEND. 


11. MPCERR flag indicates an error condi- 
tion occurred during BPC processing. 
Write message DLZ1001 if on. 


. Write message DLZ102I including the 
return code if present. 


15. Move data to user area. 


Extended Description 





PSTUSER 


User 1/O Area 









DLZMPIO0 


Routine Labet 


13. The storage acquired indicator 
TCADLIPS is turned on by online 
nucleus DLZODP when the PST is 
acquired. 

If no PST, it just did a TERM call. 


. Write message DLZ098I if PST con- 
tains an error. 


. Write message DLZ1001 if the data 
addresses are invalid. 
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Figure 2-21.3. MPS Batch Program Request Handler (DLZMPIOO) (Part 3 of 3) 
INPUT PROCESS OUTPUT 


Online Batch 


pea. 16. If MPS Restart is on, copy PCE 
updated PCB from online 
to batch partition. 


17. Check if MPC is active. 


(amp XECBTAB TYPE=CHECK 
XECB=DLZXCB02 


DLZXCB03_ —— =~ 


From 
Figure 2-21.1 


Step 25 


SAVER13 





Register 
Save Area 


18, Return to application program. 





To 


Application 
Program 
19. Go to ABEND handler, Figure 
2-21, Step 5. 
DLZMP100 — MPS Batch CSECT | DLZMPI00 
Extended Description Routine Label Extended Description Routine Label 





17. If the START PARTITION XECB is NODATA 
not at the same address as when the 
batch job started indicating there was 
a deletion and new define, or if it no 
longer exists, write message DLZ0821 
and go to Step 19. 
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Figure 2-21.4. MPS Batch Message Writer (DLZMP100) 
From 


INPUT Caller PROCESS 


Message 1D 


1. Convert message number to 


L printable decimal. 
2. Find message text. 
DLZMMSGT 
(= Message Text 
Module 





IOAREA 3. Put message to console and printer 


unless caller indicates no message 
should be written to one of them. 


ia 


4. Clear cutput area and return. 


eos 


DLZMPIOO — MPS Batch CSECT 


Extended Description Routine Label 





This routine is entered at one of two 
labels: 
DLZMMSG -— Main entry 
DLZMMSGX — Entry if branching to 
this routine from an external 
module. 
In either case, initialize registers and then 
do the listed steps. 


. This routine is entered when a message is 
to be written to SYSLOG and/or 
SYSLST. 


. The message module DLZMMSGT 


includes all messages that can be issued 
by MPS and is used in both the batch 
and online partitions. 


PUTCONS2 





== PUT CONSOLE 
=a) PUT PRINTER 
Caller 
Registers 


Extended Description 














Figure 2-21.5. MPS Batch ABEND Handler (DLZMPIO0) 





INPUT 
OUTPUT External 
Entry* 
Caller 
10 AREA Registers AB Entry* 
RO 
All Other 
Entries* 
{OAREA pik 
az Name=DLZMPSO = 
FLAG2 
To }FLLOCK 
Calier 
DLZXCBn1 aS 


OTL 


Name=DLZMPSO 7 ton 


FLAG UPS! 3 


ead 


l 


DLZMPI00 


Routine Label 


DLZMP100 — MPS Batch CSECT 
Extended Description 


*There are four entries to this routine: 
1. External. 


2. AB STXIT 
3. PC STXIT 
4 


. The MPS Batch Initialization, MPS 
Batch Termination, and MPS Program 
Request Handler routines (whenever 
XPOST is needed to tell online that 
batch completed unsuccessfully). 


. The AB output area is located in a 
dump following the DC C‘AB SAVE’ 
characters. 


. The AB reason code is located in a 
dump following the DC C ‘AB 
ABEND CODE’. 


. The PC output area is located in a 
dump following the DC C ‘PC SAVE’ 
characters. 





PROCESS OUTPUT 


1. Initialize registers and go to Step 8. 


2. Set AB entry indicator. FLAG 


3. Save ABEND code and go to Step 4. 


ABREASON 

4. Set PC entry indicator. FLAG 
5. If error occurred while in PL/I code, 

modify return address and branch to 

PL/I STXIT PC routine. 
6. Write error message DLZO96I. 

FLAG2 

7. Set lock if not already set. FLLOCK 
8. Notify online an ABEND condition 

exists. DLZXCBn3 


== XPOST XECB=DLZXCBn3 


9. Delete this partition’s MPS batch 


XECB. 
XECBTAB TYPE=DELETE 
XECB=DLZXCBn1 
FLAG2 
10. Reset lock. 


11. Cancel if entered via AB or PC 
STXIT and dump not required. 


=a CANCEL 


12. Get a dump and end. 


IDUMP or JDUMP 


DLZMPIOO 


Routine Label Extended Description Routine Label 
5. The address of the PL/I STXIT PC 
routine was saved during the first entry 
to DLZMPRH (see Figure 2-21.3, Step 1) 
After PL/I completes diagnostic infor- 
mation, processing returns to modified 
address in DLZMABND. 


. Prevents another MPS task from starting 
or stopping concurrently. 


10.No longer need to serialize. 


12 IDUMP issued if support exists; 
otherwise JDUMP. 
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Figure 9.22.1. MPS Stop Transaction (DLZMSTPO) Figure 2-22.2. MPS Purge Temporary Storage Transaction (DLZMPURO) 
INPUT conn PROCESS OUTPUT INPUT PROCESS OUTPUT 
CICS/VS 
DFHPCP en 


CICS/VS 
DFHPCP 





) 


1. Locate stop transaction (MPS) Ri 


XECB. Ri 1. Locate stop partition XECB. DLZXCBO1 

DLZXCBOO Pree 
=m XECBTAB TYPE=CHECK ROTO a) XECBTAB TYPE=CHECK 
XECB=DLZXCBOO XECB=DLZXCB01 















~~ 
R1 ~~ — — » 2. If stop partition XECB exists and 
DLZXCBO1 is within current partition: 
ierenoe Cees ac 2. Turn on POST bit in stop ee ie A. Set PURGETSO bit. X’80' 
iss marae eee naa 
DLZXCBO1 
B. Post stop partition XECB. 
3. Return. 
> DFHPC TYPE=RETURN 
C. Go to Step 4. 
a DLZTSQ00 
fe] 
CICS/VS | ‘3. Purge tempor tor ‘ 
cicsivs | ge porary storage queue 
jamb DFHTS TYPE=PURGE 
DATAID=DLZTSQ00 
4., Return. 
foes) DFHPC TYPE=RETURN 
To 
CICS/VS 
DFHPCP 
DLZMSTPO — MPS Stop Transaction CSECT BEEMeTEY DLZMPURO — MPS Purge Temporary Storage Transaction DLZMPURO 
Routine ab 
Extended Description Routine Label Extended Description Routine Label 





1. Module identifier (DLZMPURO) is DLZMPUF0 | DLZMPURO 
defined here. 


3. Write message DLZ130I if purge 
fails, or message DLZ1281 if it is 
successful. 


el 
STPO 
RETURN 
RN 


1. Module identifier (DLZMSTPO) DLZMSTPO |DLZM 
is defined here. 
Write message DLZO80I if 
DLZXCBO0 does not exist — 
MPS not active.— and go to 
Step 3. 

2. Note that the XPOST macro is 
not needed to turn on the POST 
bit because stop transaction 
XECB (DLZXCBO00) is defined in 
the same partition as this module. 
DLZXCBO00 is defined by 
DLZMPC00. 

3 RETU 
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Figure 2-23. Queuing Facility (Overview) (DLZQUEFO) (Part 1 of 2) 
INPUT Ero PROCESS 


QENODEQ (See Note) 


1. Initialize registers and 
data fields. 


PST pe 2. If requested function is 


‘purge’, exit to OPUR routine. 
= 


Process Purge 
Requests 
2-23.1 


Upon return, go to Step 7. 









First Half Second Half 3. Locate RDB, if any, for 
of resource of resource 
ID 


given resource ID. 
If no RDB located, go 
to Step 7. 


1D 





EST . If requested function is 


PSTFNCTN ‘dequeue’, exit to QDEQ 


routine. 


Process Dequeue 
Requests 
2 


> 






23.2 


Upon return, go to Step 7. 


DLZQUEFO — Queuing Facility CSECT 


Extended Description Routine Label 





Note: QENQDEQ is the general purpose 
entry point for requests to ‘enqueue; 
‘dequeue’, or ‘verify’ a resource, or to 
‘purge’ all enqueues for a task. 


1. Module identifier (DLZQUEFOvrnp) 
is defined here. The level format is 
vip; where ‘v’ is the version, ‘r’ is 
the release, ‘n’ is an additional 
identification number, and ‘p’ is the 
latest PTF number that has been 
applied. 


. The proper queue head is first located |QLOCRDB 


by hashing the resource ID. That 
queue is then searched for a RDB 
with the same resource ID. If found, 
its address is passed back compli- 
mented. Otherwise, the address of 
the last position on the queue is 
retumed. 





OUTPUT 


PST QWA 


PSTRTCDE QWAFLG1 


R1-R15 





if found: 


Compliment 
of RDB 
Address 


If not found: R2 


Last Position 
on Queue 


DLZQUEFO 




















Figure 2-23. Queuing Facility (Overview) (DLZQUEFO) (Part 2 of 2) 
INPUT PROCESS 





PST = ee 


PSTFNCTN 


5. If requested function is 
‘enqueue’ or ‘verify’, 
exit to QENQVER routine. 


=== NERVES. | 


Process 

Enqueue/Verify 

Requests 
2-23.3 






Upon return, go to Step 7. 
= = 6. If the PSTFNCTN Field 
contains an unrecognizable 


function code, terminate 


the task. 
ScD 


SCDABEND == DL/) ABEND 
SCDERRMS 


Routine. 





7. Return. 


DLZQUEFO — Queuing Facility CSECT 


Extended Description Routine Label 


6. Message DLZ2671 is issued. 


7. This routine is used for common 
processing during exit for enqueue, 
dequeue, verify, and purge request. 


If processing is successful, a 0 return 
code is set in R15. Otherwise, the 
PST return code field (PSTRTCDE) 
is checked for error return codes. 

If present, the R15 return code is 
set to 4 and the registers are saved 
in the ABEND save area. 








OUTPUT 


R15 


O — if normal exit 


4 — if error resulting 


in termination 
occurred 


To 
Caller 


DLZQUEFO 


Routine Label 
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Figure 2-23.1. Process Purge Requests (DLZQUEFO) 
INPUT PROCESS 


From 
Figure 2-23 
Step 2 


QPUR (See Note) 


|_____» 1. Scan each RRD attached to 
PST the PST RRD chain. For 


each RRD: 
| 
A. Unchain the RRD from 


the PST forward chain 
by storing the address 
of the next RRD in the 
ane ‘first’ PST pointer. 


x 
ae B. If the task is an owner of 


the resource, the owner- 
ship is released and new 
owners, if any, are located 
and promoted. 





C. ‘If the task is not an owner, 
the RRD is unchained from 
the RDB-RRD chain and its 
space is returned to the free 
block queue. Flag parameters 
are then passed to any other 
waiting task. 


2. When all RRDs on the chain have 
been processed, the ‘last RRD’ 
pointer is reset. Also, the number 
of resources owned and the wait 
chain pointer are both set to 
zero. 


3. Exit to QRETURN. 


DLZQUEFO — Queuing Facility CSECT 
Extended Description 


Note: This routine is used to purge all 
complete or outstanding enqueue requests 
for a given task. 


1. A. The address of the next RRD 
is saved because it would be 
destroyed when the current 
RRD is returned to the free 
space. 


This routine is called to 
relinquish ownership of a 
resource by dequeuing the RRD 
for the task. It is entered by 
purge at entry point QDEQPUR 
to avoid the unnecessary 
overhead of unchaining the 
RRD from the PST. 





To 
Figure 2-23, 
Step 7 





OUTPUT 


PST 


PSTRRDF 


PST 


PSTNORO 


PSTRTCDE 


PPST 
PPSTCW 





DLZQUEFO 


Routine Label 
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Figure 2-23.2. Process Dequeue Requests (DLZQUEFO) (Part 1 of 2) Figure 2-23.2. Process Dequeue Requests (DLZQUEFO) (Part 2 of 2) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From 
aoe RRD 4. If any counts are left at 
lower levels: 
| RRDNORO | 
QDEQ (See Note) A. Lower current level of 
ownership by task. 
1. If an RDB previously located 
(Figure 2-23, Step 3), locate the B. Promote any new owners 
RRD. R3 made eligible by the 
decrease in level. 
If no RRD exists, exit to 
QRETRUN (Figure 2-23, C. Go to step 6. 
Step 7). 


5. If no counts are left at any 











PST = 2. Decrement by 1, the ownership : 
oes level: 
count for the specified RRD 
level. A. Release the resource. 
OF 
B. Promote any new owners 
Q ats : made eligible by the 
RRD —— ¥— 3. If the remaining ownership count or release 9 y 
is not zero (or if it is zero, but : 
the level is not the maximum 
for the RRD), pass any FLAG 6. Exit 
parameters to the waiting tasks. } 
Then go to Step 6. ox : 
To 
| Step 4 
DLZQUEFO — Queuing Facility CSECT DLZQUEFO 
Extended Description Routine Label Extended Description Routine Label : 
Extended Description Routine Label! Extended Description Routine Label 


Note: This routine is used to process 
a request to dequeue a resource. 


1. 

QPNDWCM 

2. This routine is also used by ‘verify’ 
processing to dequeue a resource 
that was enqueued due to a required 
wait. 


5. Entry point QDEQPUR in this QRELRSC 
routine is used by ‘purge’ 
processing to release a resource 
already unchained from the 
PST/RRD chain. 


QDEQVERX 


Z uoKs9g 
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Figure 2-23.3. Process Enqueue/Verify Requests (DLZQUEFO) (Part 1 of 2) 
INPUT PROCESS : OUTPUT 


From 
Figure 2-23 
Step 5 


QENQVER (See Note) 


R2 i 1. Check if RDB exists. 


C._si«dj If RDB does not exist: 


New Request 


Enqueue 
2- 





Upon return, go to Step 6. 


2. If RDB does exist, call 
QPFLAGP to pass any 
flag parameters to 
waiting tasks. est 


3. Locate RRD or position 


on chain. R3 


4. if RRD exists: 


(=) 


Existing Resource 


Enqueue 
2-23.5 





Upon return, go to Step 6. 


DLZQUEFO — Queuing Facility CSECT DLZQUEFO 


Extended Description Routine Label Extended Description Routine Label 







Note: This routine is used to process 
enqueue and verify requests. It deter- 
mines the type of enqueue (or verify) 
and enters the proper routine for the 
type. The possible types are: 








@ New resource enqueue — The enqueue 
of a resource not currently enqueued. 






@ Existing resource enqueue — The 
enqueue of a resource currently 
enqueued, but not by this task. 







@ Re-enqueue — The enqueue of a 
resource currently enqueued by 
this task. 










Processing of enqueue and verify 
requests is essentially the same. The 
difference is that on the return from 
verify processing, the user is not the 
owner of the resource. 













Figure 2-23.3. Process Enqueue/Verify Requests (DLZQUEFO) (Part 2 of 2) 


INPUT PROCESS 






5. lf RRD does not exist: 


6. Exit 


DLZQUEFO — Queuing Facility CSECT 


Extended Description Routine 


| 





Label 





Re-enqueue 
2-23.6 


Extended Description 






To 
Figure 2-23 
Step 5 


OUTPUT 


DLZQUEFO 


Routine 





Label 
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Figure 2-23.4. New Request Enqueue (DLZQUEFO) 
INPUT PROCESS 














From 
Figure 2-23.3 
Step 1 


QNRENO (See Note) 


— . If the function is ‘verify’, 
processing is complete 

at this point because the 
resource is available. Go 
to Step 3 to return to 
caller. 


PST — 


_ 
| 
| 
| 
| 


—@ 2. If the function is ‘enqueue’: 


A. Build and initialize an 
RDB and chain it on the end of 
the proper RDB queue. 


B. Build and initialize a 
RRD and attach it to 
both the RDB and PST 
RRD chains. 


C. Define the task as a 
resource owner. 


3. Exit. 


OLZQUEFO — Queuing Facility CSECT 
Extended Description 


Note: This routine is used to process 
an enqueue (or verify) request for a 
resource that has no current enqueues 
outstanding. 


2. A.  R2 points to RDB chain 
location. R3 points to RRD 
chain head in RDB. 


Z uo0T}00S 


NnviodoO jo poy 


Uor 
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OUTPUT 


‘New’ RRD Address 


To 
Figure 2-23.3 
Step 1. 


DLZQUEFO 


Routine Label 














Figure 2-23.5. Existing Resource Enqueue (DLZQUEFO) 
INPUT 






From 
Figure 2-23.3 
Step 4 









RRD PST 


RRDMAXL PSTOLEV 


— — — A. 
PST 
| PSTENCTN | 
B. 


RDB 


PST 
RDBMAXL PSTOLEV 
PSTFNCTN 





A. 
B. 


——__ 2. If the requested level is 
compatible with the 
current maximum for the 
resource and if the 
requested function is 


PROCESS OUTPUT 


QREENO (See Note) 


> 1. If the requested level is not 
higher than the current 
maximum for the task, the 
resource is available. Therefore: 


If the requested function is 
‘verify’ go to Step 5. 


Otherwise, increment ownership 
count for the level by one. 
Go to Step 5. RRO 


RRONQUP 


RRDNQEX 






‘Verify’ — Go to Step 5. 


‘Enqueue’ — Define the task 
as an owner at the new level 
and go to Step 5. 


3. Otherwise, do deadiock 
detection and wait for 
resource availability. 


4. If function is ‘verify’, dequeue 
the enqueued resource. 


5. Exit. 


DLZQUEFO — Queuing Facility CSECT 


Extended Description 


Note: This routine is used to process 
an ‘enqueue’ or ‘verify’ for a resource 
that is currently enqueued by the 
requesting task. 


2. 
B. 


3. The task will be defined as an owner 
of the resource during ‘dequeue’ pro- 
cessing for other task. 


The QDLKDTN routine detects a 
deadlock condition and resolves the 
deadlock by picking and terminating 
one of the tasks involved. The task 
terminated is selected as follows: 


To 
Figure 2-23.3 
Step 4 


DLZQUEFO 


1. Online tasks are picked before 
MPS tasks. 


2. Within a class, the task with the 
fewest resources currently enqueued 
is chosen. 


3. In the event of a tie, the choice 
is arbitrary. 
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Figure 2-23-6. Re-enqueue (DLZQUEFO) 


INPUT PROCESS OUTPUT 








QERENQ (See Note) 






RDBMAXL PSTQLEV 
PSTFNCTN 


. If resource is available 
at requested level: 


A. If function is ‘verify’, 
go to Step 3. 


B. Build RRD and chain to 
RDB and PST. 


C. Define the task as a 
resource owner. 


D. Go to Step 3. 


. If resource is not 
available at requested 
level. 


A. Build RRD and chain to 
RDB and PST. 


B. Do deadlock detection 
and wait for resource 
availability. 


C. If function is ‘verify’, 
dequeue the enqueued 
resource. 


3. Exit. 


To 
Figure 2-23 
Step 5 


DLZQUEFO — Queuing Facility CSECT DLZQUEFO 


Extended Description Routine Label Extended Description Routine Label 








The QDLKDTN routine detects a 
deadlock condition and resolves the 
deadlock by picking and terminating 
‘one of the tasks involved. The task 
terminated is selected as follows: 


Note: This routine is used to process an 
‘enqueue’ or ‘verify’ request for a 
resource that is currently enqueued, but 
not by the requesting task. 


QERENQ 
1. Online tasks are picked before 
To build and chain RRD, call QOBLDRRD MPS tasks. 
QBLDRRD. 
. Within a class, the task with the 
fewest resources currently enqueued 


is chosen. 


To make task a resource owner, 
call QDASOWN. 


. In the event of a tie, the choice 
is arbitrary. 

To build and chain RRD, call 

QBLDRRD. 


The task will be defined as an 
owner of the resource, during 
‘dequeue’ processing for other 
tasks. 
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Data Base 
Recovery 
Utilities 


DLZUDMPO 

DB Data set 

Image Copy 
2 


DLZUCUMO 

DB Change 

Accumulation 
2-26 


DLZURDBO 
DB Data Set 
Recovery 

2-27 


DLZBACKO 
DB Change 
Back-Out 

2-28 


DLZLOGPO 
Log Print 


2-40 


Data Base 
Reorganization 
Utilities 


DLZURULO 
HS DB 
Unioad 


DLZURRLO 
HS DB 
Reload 
2-30 


DLZURGUO 
HD DB 
Unload 

2-31 


DLZURGLO 
HD DB 
Reload 
2-32 





Figure 2-24. Visual Table of Contents for DL/I Utility Modules HIPO Charts 





ACB 
Utility 


DLZUACBO 
ACB Creation 
(Overview) 

2-33 


DLZEXDFP 
Extract 
Defines 
Utility 
2-34 


DLZSTTL 
DL/It Run 
and Buffer 
Statistics 
2-43 


Partial 
Data Base 
Reorganization 
(Overview) 

2-44 





a a a 


DB Logical 
Relationship 
Utilities 


DLZURPRO 
Prereorgani- 
zation 


DLZURGSO 


DB Scan 


DLZURG10 


Prefix 
Resolution 


DLZURGPO 
Prefix 
Update 





DLZTPRTO 
Trace Print 
Utility 

2-42 


DLZDSEHO 
Workfile 
Generator 

2-39 
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Figure 2-25. DB Data Set Image Copy (DLZUDMPO) 
INPUT PROCESS OUTPUT 


From 
SE 


OLZUDMPO: 


1. Read control card and 
aah validate contents. 


SYSIPT 2. Determine device type for 
output file specified 
and open file. 


» 3. Load DMB and obtain 
physical attributes of 
data set. 


4. Write DL/I header to 
output file. 4 


SYSO11 
(SYS012) 


5. Open input file and read 
segments sequentially, add 


Date Set 8-byte prefix to identify the 

specified in segment, and block and 

control card write the logical record 
(prefix + segment) to the 
output file. 


6. Write image dump messages. 


7. Return to Step 1 if there are Statistics 
more input control cards. Report 





To 
VSE 


DLZUDMPO — DB Data Set image Dump Utility DLZUDMPO 
Extended Description 


1. Read and validate control statement. 
Write the following messages as needed: 


DLZ302I - Column | not D 

DLZ303]I - Column 2 not 1 or 2 

DLZ304I - DBD name field not specified 

DLZ307I - Input filename not specified 

DLZ308I - Output filename not specified 

DLZ309I - Error(s) found in control 
statement 

DLZ310I - Image of erroneous control 
statement 


. DLZDVCE macro obtains data from 
PUB.Device type may be tape or DASD. 


. The header record contains information 
that allows the use of the image dump 
file by the DB data set recovery utility. 
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Figure 2-26. DB Change Accumulation (DLZUCUMO) (Part 1 of 2) 
INPUT PROCESS 
From VSE 


1. Get time and date of this 
execution. 


2. Cali Input Card Processor 
: (Figure 2-26.1) to read and 
Control Cards process control cards. 





3. If no CUMOUT, but LOGOUT, call 
Write Logout (Figure 2-26.2) 
to write logout. 


SCO. If, CUMOUT, loaded sort program 
(SORT) will sort LOGINxx records 
and call Write Logout (Fig 2-26.2) 
and Sort Module (Fig 2-26.3). On 


LOG1NO1-99 UM 2 
. coe completion of sort, go to step 6. 


(optional) 





From Fig. 
2-26.2 


Entry for error detected in 
DLZUC150 (Write Logout). 


5. Establish Addressability. 


DLZUCUMO — Change Accumulation Utility 


Extended Description Routine 





Extended Description 


1. Header line is printed on SYSLST. 
2. Three returns as follows: 
@ Error — issue error message. 
@ No accumulation output, call Write 
Logout (Fig 2-26.2). Then issue 


successful run message. 


@ Accumulation output, call SORT. 


ND . SORT is invoked by LOAD and 

g BALR. At exit 35, Sort Module (Fig 

et. 2-26.3) is called. 

© 

3 . This entry point is necessary because 

Nw Write Logout, not knowing who called 

id (DB Change Accumulation or SORT), 

z must return to this module if an error 
was detected. 

@ 

- 

= 

1°) 

on 

e) 

=r 

© 

oS 

@ 

o 

ee 

[mated 

\e} 

3 
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OUTPUT 


LOGOUT 


DLZUCUMO 


Routine 


OUT 


(optional) 





Label 











Figure 2-26. DB Change Accumulation (DLZUCUMO) (Part 2 of 2) 





INPUT PROCESS 
PROCFLAG — by, 6. Call Write Messages (Figure 2-26.4) 
C_] to write completion message. 
7. Exit. 
DLZUCUMO — Change Accumulation Utility 
Extended Description Routine Label Extended Description 


6. May be OK message or error message 
from SORT, Write Logout, or Sort 
Module. If PROCTERM X‘01’ bit is 
on in PROCFLAG, an error occured. 





Ss 

OUTPUT | 

SYSLST SYSLOG 5 

F 

i) 

Return to 3 
VSE st 
g, 

DLZUCUMO 
Routine Label 





psi -c 
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Figure 2-26.1. Input Card Processor (DLZUCCTO) (DLZUCUMO) 











INPUT 7 PROCESS OUTPUT 
From Fig. 
2-26 Step 2 
1. Read contro! cards, validity Saar 
check, and create Log Input Sorc Table 
SYSIPT Specification Table. = 
2. Save appropriate control card CUMCONST 
data. 
j Eee | 
3. Issue GETVIS for DB and 
Date/Time Table, if required. DB Table Date/Time 
Table 
a 4. Check for valid DMB in CIL. 
DMB from Prepare DB Table and Date/Time 
cit Table in alphabetical order. 
5. Test for valid combination of 
cards or no input (use default 
values). 
6. Return to caller. 
To Figure 
2-26 Step 3 
DLZUCUMO — Change Accumulation Utility DLZUCUMO 
Extended Description Routine . Label Extended Description Routine Label 


1. Possible card types are: GETCARD 
®@ ‘ID’ specifies db number, max key 

length, number of sort, work, and 

log files. 


‘DBO’ describes records to be 
accumulated from input and 
written to CUMOUT. 


‘DB1’ describes records to be 
written to new log file. 


‘LP describes a log input file. 


Error card — call Write Message 
(Fig 2-26.4) to write appropriate 
error message. 


. Data from control card(s) is saved in a 
dsect residing in DLZUCUMO, 
addressable by all modules in this 
utility. The dsect name is DLZUCUMC. 





3. Tables are not required if *ALL was ETMAIN 
specified. The number of entries in 

each table is equal to the number of 

data bases as specified on the ID control 


card or default of 16. 


. This information is filled from the DBO 
and/or DBI card(s) if present. 


. If any errors occur during steps 3, 4, 
of 5, call Write Messages (Fig 2-26.4) 
to write error messages and exit. 











Figure 2-26.2 Write Logout (DLZUC150) (DLZUCUMO) 


INPUT From Caller 
(See Note) 


Parameter 
List 


A (rtncode) 


LOGINO1-99 


DLZUCUMO — Change Accumulation Utility 


Extended Description 






Note: This program has two entry points: 





@ DLZUCIS50 — from SORT. 
Entered when SORT wants 
another input record. 







@ DLZUEX15 — from Figure 2-26, 
step 3 (DLZUCUMO). 


3. On EOF, the file is closed. If more input 
specified, xx (LOGINxx) in the DTF 
or ACB is incremented by 1 and the 
next log file is opened. 








. Bypass ‘50’ record for the following: 






@ *ALL and log date/time less than 
purge date/time. 






@ dbname match and log date/time 
less than purge date/time. 






@ No dbname match and *OTHER 
not specified. 






PROCESS OUTPUT 
} 
1. Establish addressability and save sort 
parameter list address. 
2. If initial entry, open LOGIN and 
LOGOUT (if needed). Obtain work- 
space via GETVIS. 
3. Read log records bypassing all but 
‘2F’ and ‘50’. 
4, The ‘50’ record is bypassed under 
certain conditions. 
5, Write the selected ‘50’ record to 
output log file. 
LOGOUT 
6. Pass selected log records to SORT 
module and return. 
Log record 


7. lf any error occurs, exit to DLZUCUMO 
(Fig 2-26, step 5). 


8. After all input records are processed, 
return to caller. 


Return to 
Caller 


ba 


DLZUCUMO 


Routine Label Extended Description 


4. (con’t) 


@ No dbname match and log date/time 
less than purge date/time. 


5. Write log record for the following ‘50’: 
@ *ALL on DBI card. 


@ Dbname match and dbname on DB1 
card. 


@ No dbname match and *OTHER on 
DBI card. 





Routine 





Label 
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Figure 2-26.3. Sort Module (DLZUC350) (DLZUCUMO) 











INPUT From SORT PROCESS OUTPUT 
Parameter Sorted log 1. Receive log record from SORT. 
ist. recor: 
e 
2. Initial entry processing as follows: 
A (retncod) 
A. Process ‘2F’ record and obtain 
workspace via GETVIS. 
B. Determine device type for CUMIN 
(if specified) and CUMOUT. 
———  S 3. Sorted log records are merged with 
psehoar ia. matching CUMIN records (if specified) 
[| and records written to CUMOUT. CUMOUT 
4. When next log record needed, return Parameter 
to SORT. moh 


A (retncod) 
SORT 


5. When all log records and CUMIN 
records are depleted, return to SORT. 


DLZUCUMO — Change Accumulation Utility 


Extended Description Routine 





1, SORT retums at EOF with an indication 
that no more records exist. 


. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 


. The following merging logic is used for 
comparison of LOGIN and CUMIN to 


create CUMOUT. 

Wn @ For every new DMB name (data set 
Oo ID), an accumulation header record 
Q is written either from the CUMIN 
fate tecord or created from the ‘2F’ 
g record. 
N Every CUMIN record is purge 

checked by date/time as specified 
= by the user. The DB table as 
oO modified by DLZUC150 is used 
> for a specific DMB or the *ALL/ 
ro) *OTHER purge date is used as 
Qa applicable. 
Sg, If a matching log record is found, 
Oo all log records with the same data 
aa ID will be merged with the CUMIN 
@ 
ry 
a. 
Oo 
=) 


SST —-Z 





Return to 
SORT 


DLZUCUMO 


Extended Description Routine Label 


3. (con’t) 
record and written to CUMOUT. 


If there is no matching log record, 
the CUMIN record is written to 
CUMOUT unchanged. 


If log records exist but no CUMIN, 
the log records are accumulated by 
data ID and written to COMOUT. 


. A ‘delete’ return code is given to SORT 
so that SORT does not further process 
the current record. SORT will prepare 


the next input record and enter this 
program at step 1. 


. Free all work areas and close CUMIN ENDJOB 
and CUMOUT. 
Indicate ‘no return’ to SORT. ENDSORT 











Figure 2-26.4. Write Messages (DLZCUMM0) (DLZUCUMO) 






INPUT 


DLZUCUMO — Change Accumulation Utility 
Extended Description 
Note: This module can be called by 


DLZUCUMO, DLZUCCTO, 
DLZUC150, or DLZUC350. 


1. R1 contains message number. 


2. Output can be to SYSLST or SYSLOG. 
3. 





From Caller 
(See Note) 


a 


PROCESS 


> =1. Calculate address of message. 


2. Write output message. 


3. Exit. 


Routine Label Extended Description 


Return to 
Calter 





OUTPUT 


Lt 


SYSLST 


DLZUCUMO 


Routine 


SYSLOG 


Label 
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Figure 2-27. DB Data Set Recovery (DLZURDBO) (Part 1 of 2) 
INPUT 


From 
DLZRRCOO 


SYSIPT 
Required: 


DLZURDBO — DB Data Set Recovery Utility 








Extended Description 


2. There are three returns: 
@ No errors — continue processing. 


®@ No input statements — terminate 
processing. 


@ Error — issue error message and 
terminate processing 


. DLZDVCE macro obtains data from 
PUB. Device type may be tape or 
DASD. 


. DUMPIN file is mandatory and may 
be output from DLZUDMPO0 or 
DLZURULO. 


CUMIN file is optional and is output 
from DLZUCUMO. 





PROCESS 


1. Obtain DL/I control block 
addressability via GSCD 
call. 


2. Read and process control 
cards. 


DLZURCCO 


Control Statement 
Processor 
2-27.1 






3. Determine device type for 
each input. 


4. Open data set (open ACB 


call). 
DLZDLOCO 
Open/Close 
2-14 


5. If processing only log 
records, go to Step 10. 






6. Open input file(s) and 
process DL/I header 
information. 








OUTPUT 


DLZURDBO 


Routine 








Figure 2-27. DB Data Set Recovery (DLZURDBO) (Part 2 of 2) 
INPUT 


LOGINO1 to LOGINxx 





DLZURDBO — DB Data Set Recovery Utility 
Extended Description 


7. Records are read from DUMPIN and 
CUMIN via GET calls and are written 
in ascending order (compare by key 
if KSDS, and by RBA if ESDS). The 
proper PSTFNCTN is supplied for 
call of buffer handler. 


. LOGIN file is optional. 


- LOGINO! to LOGINxx files are 
processed sequentially. 


PROCESS 


7. Read and merge data and 
write records. 


ed 


/DLZDBHOO 





&. Close input files. 


9. If no log input is to be 
processed, go to Step 13. 


10. Open LOGIN file. 


11, Process all log records for 
this data set. 


(each 


}DLZDBHOO 





12. Close LOGIN file. 
13. Close Data set (close ACB 






call). 
(aap 
2-14 
14. Exit. 












To 
VSE 


OUTPUT 


Data Set 


Data Set 


DLZURDBO 
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Figure 2-27.1 Control Statement Processor (DLZURCCO) 


INPUT F 
rom 
Figure 2-27 
Step 2 
SYSIPT 


DLZURCCO — Control Statement Processor CSECT 


Extended Description 


1. Possible card types are: 


‘S’ — identifies data set 
to be recovered. 


“LIP — describes log input 
file(s). 


Write the following messages as needed: 


DLZ302I - Column 1 not S 

DLZ304I - DBD name not specified 

DLZ3071 - Input filename not specified 

DLZ310I - Image of erroneous control 
statement 

DLZ342I - Invalid number of log files 

DLZ372I - Invalid log buffer size 


. One entry in table describing file type, 
logical unit, and buffer size for each 
log file. 


. If no log file is specified, issue macro 
DLZDVCE to see if SYSO13 assigned 
to tape. 





PROCESS 


1. Read control statements and 
check for validity. 


2. Create log input specification 
table. 


3. Test for default tape log. 
4. Return to DLZURDBO. 


Routine Label Extended Description 


GETCARD 


CLEANUP 





OUTPUT 


Log Input 
Specification Table 


eel 


To 
Figure 2-17 
Step 3 


DLZURDBO 


Routine 


Label 











Figure 2-28. DB Change Backout (DLZBACKO) 


INPUT From DL/I 


SYSIPT 


PST scD 


O 


LOGINO1 to LOGINxx 


DLZBACKO — Data Base Backout Utility 


Extended Description 


. ‘LI’ control cards describe one input 
log file each. 


. Initialize PSTDBPCB, PSTDGU, and 
PSTDGN. 


. Atend of file, go to step 7. 


. The log record is placed in a work area 
(READAREA) whose address 
DLZRDBCO0 obtains via a V-con. 


. The input log file is closed. If another 
log file exists, it is opened and process- 
ing continues with step 2. The message 
texts are found in DLZBACMO csect. 





PROCESS 


1. Read control cards and create !og input 
specification table. 


2. Obtain DL/I control block addressability 
via GSCD call. Open log input for read 
backward. 


. Read and deblock DL/I log record. Only 
accept records for specified PSB. 


. Terminate processing if termination ‘07’, 
scheduling ‘08’, or checkpoint ‘41’ record. 


. Bypass if ‘50’ record and physical replace. 


6. Process all other records for this PSB. 


cap DLZRDBCO 


Process Log 
Record 


2-28.1 






If no error occurred, go to step 3. 


7. Write appropriate completion message. 


8. Return to DL/I to purge buffers and close 
Logout files and DMBs. 


Routine Label Extended Description 





Return to 
DL/I 





OUTPUT 


Log Input 
Specification 
Table 


ee 


Log Record 


SYSLST 


DLZBACKO 


Routine 





SYSLOG 


Label 
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Figure 2-28.1. Process Log Record (DLZRDBCO) (DLZBACKO) 


From Fig. 
INPUT 2-28 step 6 PROCESS OUTPUT 


Dummy DSG 


1. Initialize dummy DSG and PST fields and 


open DMB if not open. 
ze) DLZDLOCO 
Open/Close 
PST 
PSTDSGA 
Buffer Pool 2. Read data base record containing segment 
data to be changed. | PSTACBNM | 
DLZDBHOO 
DB Buffer 
Handier 
2-15 
3. If simple HISAM, go to Figure 2-28.2 to 
back out log record. 
4. If HISAM or INDEX, go to Figure 2-28.3 
to back out log record. 
5. If HD data base, go to Figure 2-28.4 to 
back out log record. 













6. Log data base change. 


DB Logger 
2-16 





Logout 





7. Write data base record. 


_ 


oa DLZDBHOO Data Base 
DB Buffer 
Handler 
2-15 
To Fig. 2-28 
DLZBACKO — Data Base Backout Utility Step 6 DLZBACKO 
Extended Description Routine Label Extended Description Routine Label 


1. 


2. The following calls were made to the 
buffer handler: 


. If HISAM KSDS, issue PSTSTLEQ 
call. 


. If HISAM ESDS, issue PSTBYLCT 
call. 


. If HD ESDS, issue PSTBK LCT 
call. 


6. Output log records contain the ‘opposite’ 
function to which was on the input log. 


7. The return code is checked and appro- 
priate action is taken depending on the 
call and return code. 




















INPUT 





Log Record 


aaa 


bee epee ee —-~——7-— 


DLZBACKO — Simple HISAM Backout Utility 


Extended Description 


1. The address of the log record is input 
to this routine. 










Figure 2-28.2. Simple HISAM Backout (DLZFiDBCO) (DLZBACKO) 





PROCESS OUTPUT 
1. No action if key not found and log 
record is physical replace or insert. 
2. If physical delete and key not found, Buffer Pool 


get buffer space and move old data. 


eum DLZDBHOO 


DB Buffer 


new segment 


Handler 
2-15 





3. If physical delete and key found; 
set buffer handler function to add 
new key (PSTPUTKY), and 
replace data in buffer. 


4. It physical insert and key found, set 
buffer handler function to erase key 
(PSTERASE). 


5, It physical replace and key found, Buffer Pool 
replace data in buffer with old data. 


6. Log action as physical delete if key 


not found and log record is physical 
irisert. 


To Fig. 2-28.1 
Step 4 


DLZBACKO 


Routin2 Label Extended Description Routine Label 
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Figure 2-28.3. HISAM or INDEX Backout (DLZRDBCO) (DLZBACKO) 














INPUT . PROCESS 
From Fig. 
2-28.1. 
Step 4 
Log Record = —— ar | . If physical insert for KSDS, 
mark segment in buffer logically 
| deleted. 
| acai 
— > 2. Bypass physical insert for 
E s 
3. If physical replace, replace 
[os scorer] data in buffer with old data. 
Log Record _— —_ > 4. If logical delete, reset delete 


coe 


5. No action if key not found and 
not insert. 


6. If key not found and insert, log 
changes as replace with logical 
delete flag on. 


7. If chain maintenance, replace 
data in buffer with old chain value. 


OLZBACKO — Data Base Backout Utility 


Extended Description Routine Label 


. If segment is an INDEX data base HISREC 
(primary or secondary), the pointer HISISRT 
to the index target segment is also 
zeroed. 

. Chain maintenance log records for 
KSDS effectively back out physical 
insert to ESDS. 

HISREC 
LGDLET 
CHKISRTH 


CHKISRTH 


. If segment is an INDEX data base 
(primary or secondary), the pointer 
to the index target segment is also 
zeroed in the log record. 


Extended Description 





OUTPUT 


Buffer Pool 


changed 
delete byte 


Buffer Pool 


changed 
segment 


Buffer Poo! 


changed 
delete byte 


To Fig. 2-28.1 
Step 5 


DLZBACKO 


Routine Label 











Figure 2-28.4. HD Backout (DLZRDBCO) (DLZBACKO) 





INPUT From Fig. 


2-28.1. 





Step 5 





Input Log 
Record 


es 





DLZBACKO — Data Base Backout Utility 


Extended Description 









PROCESS OUTPUT 






1. If chain maintenance record, Buffer Pool 


move old chain pointer to 
segment 


buffer. Make new log code = 
physical replace. 


Output Log 
Record 


2. If physical delete, make new log 
code = physical insert. Obtain this 
space again and update FSEs. Re- 
place information in buffer with 


old data. 
Game) [52205050 


HD Space 
Management 
2-13 






3. For physical replace, replace 
data in buffer with old data. 


4. For physical insert, free space in 
buffer. Make log code = physical 
delete. 


5. For counter maintenance, the 
counter is adjusted by the 
amount specified in the 
adjustment field. 


To Fig. 2-28.1 
Step 6 


DLZBACKO 


Routine Label Extended Description Routine Label 


CHNMAIN 
HDFDLET 
HDNDLET 
HDUDLET 
HDUREPL 
HDFISRT 
HDNISRT 
HDUISRT 


CTRMAIN 
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Figure 2-29. HS DB Unload (DLZURULO) Figure 2-30. HS DB Reload (DLZURRLO) 
INPUT From DOS/V PROCESS OUTPUT INPUT From VSE gm PROCESS sum OUTPUT 
L 


) 


1. Read control card and validate 
1. Read control card and validate contents. contents. 


SYSIPT 2. Initialize short segment and statistics are 
tables. 2. Determine device type for input 
; ; file. 
3. Determine device type for each output 
file specified. 
3. Initialize statistics table. 
4. Generate VSAM control blocks 
and open data set. 


DBD 4. Load DBD and obtain physical character- 
istics of data base as it will be reloaded. Data Base 
sYso11 5. Fiead records from input and 
write to data base. 
5. Generate VSAM control blocks and open 
data sets. 


6. Print comparative statistics. 


6. Read records in key sequence, remove SYSLST 
deleted segments, and write newly SYso11 
formatted KSDS and ESDS type records (SYS012) 
Data Base to output. 


Return to 
VSE 


7. Write statistics and close all files. 


SYSLST 
Return to 
VSE JCL 
DLZURULO — HISAM Reorganization Unload Utility DLZURULO DLZURRLO — HISAM Reorganization Reload Utility DLZURRLO 
Extended Description Routine Laber Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


1. Read and validate control statement. 6. (con’t) 


Write the following messages as needed: . Read and validate control statement. 


C. Move as many segments as will fit into 


DLZ302I - Column | not R 

DLZ303I - Column 2 not 1 or 2 

DLZ304I - DBD name not specified 

DLZ3071I - Input filename not specified 

DLZ308I - Output filename not specified 

DLZ309] - Error(s) found in control 
statement 

DLZ310I - Image of erroneous control 
statement 

DLZ334I - Column 3 not N, R, U, or 
blank 


KSDS work area, bypassing deleted 
segments. Calculate overflow RBA. 
Write image of KSDS to output. 


. Format work area like ESDS record 


with new attributes. 


. Move any dependent segments as will 


fit into ESDS work area, bypassing 
deleted segments. Calculate RBA for 
next record, if required. Write image 


Write the following messages as needed: 


DLZ302I - Column 1 not L 

DLZ307I - Input filename not specified 

DLZ309I - Error(s) found in control 
statement 

DLZ310I - Image of erroneous control 
statement 

DLZ344I - Column 3 not N, R, U, or 
blank 


. DLZDVCE macro obtains data from 
PUB. Device may be TAPE or DASD. 





of ESDS to output. 


. DLZDVCE macro obtains data from PUB. 


. The first record on the input file 
contains a statistics table initialized 
to zero. Included is the segment code 
and length for all segment types in the 
data base. 


7. Statistics also written to SYSO11 to be 
used for comparative purposes during 
reload. Processing will continue if addi- 
tional input cards. 


Device type may be TAPE or DASD. 


. Issue GENCB for ACB, RPL, and EXLST. 
‘Open KSDS and ESDS unless 
ACCESS = SHISAM (KSDS only). 


. Issue GENCB for ACB, RPL, and 
EXLST. Open KSDS and ESDS unless 
ACCESS = SHISAM (KSDS only). 


. Processing as follows: 


A. Read KSDS records in key sequence, 
bypass if deleted, ESDS records 
containing overflow dependent 


segments are read by RBA. . KSDS image records written to KSDS 


as key sequence records. ESDS image 
records written to ESDS as address 


. Format work area like KSDS record 
sequence records. 


with new attributes. 
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Figure 2-31. HD DB Unload (DLZURGUO) (Part 1 of 5) 
INPUT PROCESS 





From 
Figure 
2-3.4 





SYSIPT 


Read control statement and validate 
contents. 







Obtain DL/I control block 
addressability via GSCD call. 


CALL Macro 
Guay ASMTDLI 


GSCDPARM 


A(SCDADDR 


R1 
| 





PSTADDOR PST 











PCBADDR 





DBPCBJSCB SDBSYM 
SDBLEVEL 
__JCB SDOBPHYCD 


JCBSDBND SDBTFLG 
JCBORGN 


DLZURGUO — HD Reorganization Unioad CSECT 


6. Acquire storage for and 
initialize statistics table. 


(== GETVIS Macro 


Extended Description Routine Label Extended Description 


Write the following messages, as 


If HDUNLD1 is IGN or UA, write 
needed: 


DLZ311I followed by DLZ385I 
and DLZ384] and then terminate. 
DLZ3291 CHKPT parameter 

invalid If HDUNLD2 is IGN or UA, write 
re Error - Not REW= or DLZ345I and continue processing. 


DLZ368I Error - Not an N, R, or U 
DLZ386I Error - Duplicate 
control card 


.. Indicate to DL/I Retrieve that HD 
UNLOAD is running by setting 
the indicator (JCBHDULD) at 
JCBINDC. 

Module identifier (DLZURGUOvmp) | DLZURGU0} DLZURGUd 


is defined here. Macro DLZUSTAT contains the DSECT 


defining the format of a statistics 


The GSCD call returns the SCD table entry. 


address +X‘60’ and the PST 
address in the call parameter I/O 
area (SCDADDR). 


The table contains the segment code 
and length for all segment types in 
the data base. 


The PCB address is passed to this 
module in Ri and stored at 
PCBADDR for later use. 


If restarting, set the restart in 
process indicator on at INDA. 


OUTPUT 


SYSLST 


SCDADDR 


_ | 


PSBADDR 


LC) 


DLZURGUO 


Routine 


= 


ee i 
| Aicscp) __ | 
[__} [estess 3. Establish addressibility. 
PDIR 
4. OPEN the printer and print the 
statistics report header. 
= OPEN Macro 
ex PUT Macro 
5. Determine devi for each = ] 
. ermine device type for 
output data set specified. 
DLZDVCE FNAME=RESTART Macro 
DLZDVCE FNAME=HDUNLD1 Macro 
(| = DLZDVCE FNAME=HDUNLD2 Macro 
PCB 
i eed 


Caller 
e) 


PCBADDR 


ae 





as 


TABBUF 


OLZUSTAT 





Label 











Figure 2-31. HD DB Unload (DLZURGUO) (Part 2 of 5) 


INPUT 


SDB PSDB 
_-— 
DDIR 


SDBADDR 


OMB 
SEC 


OMBSFD 





INDA 


ee te 


= ae 


DLZCKPT 


LOGRESP RESTART 





DLZURGUO — HD Reorganization Unload CSECT 
Extended Description 


7. Macro DLZURGUF contains the DSECT 
defining the format of an unload record. 


. Open the RESTART file and write 
message DLZ318A to SYSLOG 
requesting restart number and read 
response. 


. Macro DLZCKPT contains the DSECT 
defining the format of a checkpoint 
record. 


Write message DLZ315] if end-of-file 
is reached on the restart data set 
without finding the requested check- 
point record. 





PROCESS OUTPUT 


7. Acquire storage for a buffer AVRGREC 


to hold the unload record with 
the largest segment. 


(<=) GETVIS Macro 


8. Open output data set(s). 


j= OPEN Macro 


9. If not restarting, go to 
step 13. 


LOGRESP 


10. Ask operator for checkpoint 
restart number. 


=) OPEN Macro 
= PUT SYSLOG Macro 
(== GET SYSLOG Macro 


11. Copy records including 
checkpoint records to output 
until the checkpoint record to 
start from is found. 





GET Macro 


j=) PUT Macro 







HOUNLD1 
HOUNLD2 


OLZURGUO 


Extended Descripti Routine 





RECADDR 


OLZURGUF 





Label 
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Figure 2-31. HD DB Unload (DLZURGUO) (Part 3 of 5) 


INPUT 


eee 


DLZCKPT RECADDR 


acxsecnu|[____ 


RCHKPOSC 
RCHKEYLN| _PCBADDR 
necevvat}[_____ 





GUCALST 
A(GU)} 
A (PCB) 


A (SSA) 


i/ 


Data Base 
PCB 
DBPCBST! 


ea 


DLZURGUF —RECADDOR 


loses |] [_____] 


aca 


rats PA(GN) _| ray 
A cet 
oo Base 


[osecestc_| 








DLZURGUO — HD Reorganization Unload CSECT 


Extended Description 


12. If the RBN is available in the check- 
point record, the SSA will be 
“segname*T (rbn)” (HDAM or 
HIDAM). 


If the RBN is not available, a qualified 
key call is required. The GETVIS 
macro is used to get a work area to 
build the SSA for the call. The SSA 
will be “segname*C (key). Following 
the call, the work area is freed. 


. Write the following messages as 
needed: 


DLZ3011 
DLZ348I 


DLZ3491 
* DLZ3391 
DLZ3841 


DLZ385I 
DLZ380I 


Open failure 
Unexpected status 
from return code 
Input I/O error 

- Restart successful 
Additional diagnostics 
on SYSLST 
Restart failed 
Segment not found 





Routine Label 


OUTPUT 


PROCESS 


12. Get ready to position the 
data base to the segment 
identified in the requested 
checkpoint record. 









13. Position the data base (GU call). 


CALL Macro 


==) ASMTDLI 
Linkage to DL/I 


DLZURGUF 


CALLIST Z 
14. Get ready for unqualified 
ee 


IRGUHDRLN | 
A (1OSEG) 


15. Issue GN for segments and 
check return code. Go to 
step 21 if end of input data. 


CALL Macro 
ASMTDLI 


Linkage to DL/I 


16.. Fill in the remaining fields 


of the unload record. 
DLZURGUF 


DLZURGUO 


Extended Description Routine Label 





RESTRT4 14. IOSEG is the beginning of the variable 
length data field following the DL/I 
_ prefix information of the unload 


record. 


. Write the following messages as 
needed: 


DLZ3011 — Open error 

DLZ3481_ — Unexpected return 
j code 

DLZ3491 — I/Oerror 


. Write message DLZ400I for a sequence 
error. 








HDRFILL 








Figure 2-31. HD DB Unload (DLZURGUO) (Part 4 of 5) 
INPUT PROCI:SS 


DLZURGUF 


> 17. Update statistics table. 
ae 


i 
a 
are 


DLZURGUF 


RECADDR 
18. Write the unload record. 


Gum) PUT Macro 


19. |3uild a checkpoint record 
if required. Otherwise, 
return to step 13. 


DLZURGUF _ —_ PCB 
DBPCBMKL 
DBPCBKFD 


DLZCKPT 





20. \Write a checkpoint record. 


es) PUT Macro 


21. Return to step 13. 


RECADDR 





22. \Jpdate the statistics for the 
last root segment. 


23. Write the last block of 
unload records. 


(=m) PUT Macro 


DLZURGUO — HD Reorganization Unioad CSECT 


Extended Description Routine Extended Deseri 





.. The records are moved to the output 
block. When the block of records is 
full, the block is written. 


. Checkpoint records are written at the 
first root segment after every 5000 
segments. 


. Write message DLZ381I every time 
a checkpoint is taken. 








tion 


OUTPUT 


DLZUSTAT 






HDUNLD1 
HDUNLD6 


DLZCKPT 







HDUNLD1 
HDUNLD6 


DLZUSTAT 







HDUNLD1 
HDUNLD2 


DLZURGUO 


Routine 





Label 
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Figure 2-31. HD DB Unload (DLZURGUO) (Part 5 of 5) 
INPUT PROCESS 


TABBUF 
24. Write statistics table record. 


25. Close output files. 


CLOSE Macro 


a] CLOSE Macro 


DLZUSTAT 
26. Edit and print statistics 


ee) ere 
ee) iseererecs>> 
— report and volume information. 
TABBUF RECADDR 







27. Free table buffer and segment 


STATSIZE AVRGREC buffer. 


CE 


FREEVIS Macro 


FREEVIS Macro 


I] 


28. Close the printer. 


CLOSE Macro 


; 


Caller 29. Return to DL/I. 


Registers 


DLZURGUO — HD Reorganization Unload CSECT 


Extended Description Routine Extended Description 





24. 


25. 


26. Write message DLZ3391 (no errors 
detected). 


27. Write message DLZ392I for 
FREEVIS error. 


28. 








OUTPUT 






HDUNLD1 
HDUNLD2 


To 
Figure 
2-3.4 


DLZURGUO 


Routine Label 
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Figure 2-32. HD DB Reload (DLZURGLO) (Part 1 of 6) 
INPUT PROCESS 


GSCDPARM R1 


[aicsco) _}[Aawcay J 


From 
Figure 
2-3.4 


SYSIPT 


> 1. Read control statement and validate 


contents. 


initialize. 


A(SCDADDR} 








a statistics table. 


Gad GET Macro 


SCDADDR scD 


\/ 


2. Obtain DL/I control block 
addressability via GSCD call and 


| | 
3. Open the printer. 
4. Determine device type for input file 
and open it. 
oO 5. Read first record and check for 


(=m OPEN Macro 


DLZDVCE Macro 


aw OPEN Macro 


OUTPUT 


caller 
PCBADDR registers 


ae |) ST 


SCDADDR 


| Aisco) _| 


Stat record 


Esa] 


INDA 


RSTSAVE 


Get checkpoint restart number F 


from operator. 


{I 


SYSLOG 


OLZURGLO - HD DB Reload 


Extended Description Routine Label 


: 6. If not restarting, go to Step 20. 
| | 7. 


Extended Description 


Write the following messages, as 
needed: 


2. 


DLZ351I Error - Not REW 
DLZ368I Error - Not an N, R, or U 
DLZ386I Error - Duplicate control 
card 


Module identifier (DLZURGLOvmp) |DLZURGLO| DLZURGLO 
is defined here BEGIN 


The PCB address is passed to this 
module in Rl by DLZRRCOO and 
stored at PCBADDR for later use. 


The GSCD call returns to the SCD 
address +X‘60’ and the PST address 
in the call parameter I/O area 
(SCDADDR). 


Write DLZ3111 if HDUNLD1 is not 
assigned. 





registers 


LOGRESP 


ae) 





DLZURGLO 
Routine Label 


Issue DLZ3891 if abnormal STATINIT 


statistic table record. 


If the HD DB Reload Utility Program 
fails, the reload restart capability 
allows you to restart from a check- 
point record. Before submitting the 
job for a reload restart, change the 
parameter card from ULU to ULR. 


Write DLZ318A message to SYSLOG 
requesting restart number and read 


response. 


The number of the last valid check- 
point record on the unloaded file 

is found in console message DLZ381I. 
Valid checkpoint numbers are decimal 
values between 1 and 9999. 














Figure 2-32. HD DB Reload (DLZURGLO) (Part: 2 of 6) 


INPUT 


DLZUR 
RGUSEGLV 
HDUNLD1 D KP 


LOGRESP 


DLZCKPT 


| RCHKEYLN | 
RCKEYVAL 


GUCALST 
A (PCB) 


DATA BASE 
PCB 


| pepcestc | BSTC 


GNLIST 


A (PCB) 
A (WRK1AREA) 


DATA BASE 








PCB 
DBPCBSTC —— 


OLZURGLO — HD DB Reload 


Extended Description 


8. Write DLZ370I if the checkpoint 
requested is less than the first check- 
point record encountered. 


Write DLZ315I if checkpoint record 
not found. 


Write DLZ3811 checkpoint informa- 
tion message. 


. The SSA for the GU call is ‘segname *C 
(key)’, a qualified key call. 


. The return code is checked. 


Write DLZ380I unable to position 
DB, checkpoint record not found. 





PROCESS 


8. Locate requested checkpoint 


record. 
Ga cet mecro 


9. Get ready to position the data 
base to the segment identified 
in the requested checkpoint 
record. 


10. Position data base (GU call). 






ALL Macro 
ASMTDLI 
Linkage to DL/! 





11. Find end of data (GN call). 


GHD = cALt Macro 


ASMTDLI 


Linkage to DL/! 


12. If the return code indicates 
end of data, go to step 16. 





11. Now that the data base is positioned 


OUTPUT 


GUCALST 


A (WRK1AREA) 







RQ 


DLZURGLO 


Routine Label 





GNCALL 


at the segment identified by the check- 
point record, issue GN calls to the end 
of the data base at the same time 
reading corresponding records from 
the unloaded data base in order to 


keep the two synchronized. 
A counter for GN calls (R9) is 


call following a root segment. 


DB if invalid return code. 





incremented by one for every GN 


Write DLZ380I unable to position 








Wl 30 Apr0d01g—eple}8j posuecy] 


Z UONDeg 


e 
e 


HesodO Jo pops] 


uorL 


S9I-Z 








Figure 2-32. HD DB Reload (DLZURGLO) (Part 3 of 6) 


INPUT 


PCB GUCALST 


papcBKrp }la (ssa) _] -»—- —-— 





PCB 


DBPCBKFD 


HDUNLD1 
DLZURGUF DLZCKPT 
RGUSEGLV] LRCHKNAME D 


ALST 
A (GU) 
A (WRK1AREA) 


DLZURGLO — HD DB Reload 


Extended Description 


. Reset the counter for GN calls (R9) 
to zero. 


. If the record returned from the 
unloaded data base is a checkpoint 
record, return to step 14 to get the 
next record in order to keep the 
partially reloaded data base and 
the input unloaded data base 
synchronized. 


issue DLZ3811 checkpoint informa- 
tion message. 





PROCESS 


13. If the segment returned is not 
a root segment, skip to step 14. 


14. Put the new root segment key in 
the parameter list of the GU 
call and return to step 10. 


15. Read corresponding record from 
unloaded data base. 


(axa GET Macro 


16. Return to step 10 to get the 
next segment. 


17. Position data base to last root 
segment (GU call). 


==) CALL Macro 


ASMTDLI 


Linkage to DL/! 


Routine Extended Description 





OUTPUT 


GUCALST RQ 


A 


Eeeaaae 





DLZURGLO 


Routine 











Figure 2-32. HD DB Reload (DLZURGLO) (Part 4 of 6) 


INPUT 


GNLIST 


A (WRK1AREA) 
DATA BAS 


DLZURGUF 


RGUSEGLV ] a9 


SARA DDR eee 
A (SCD) 

ScD 

SCDDSEHO 

DSEHADDS 

AOPENWRK 


AWRKDSEH | RSTFILE 
AWORKFIL 


PSTADDR RSTSAVE 


PCBADDR 


A (PCB) PSTPCT1 


PST 
PCB SDB 
DBPCBJCB SDBPHYCD 


SDBLEN 


JCB 


1) JCBSDB1 


JCBSDBND 





DLZURGLO — HD DB Reload 


Extended Description 





18. Save the segment code of the last 
segment. The number of GN calls 
to make to get to the last segment 
is in R9. 


. If a work file (for logical relationships 
or secondary indices) was being 
created during the reload, the 
partially created work file should be 
submitted as input to the restarted 
job assigned as SYS010 with a file 
name of RSTFILE. 


Write DLZ376I invalid device 
assignment. 


. Now that Reload Restart processing 
is complete, set the processing 
options to indicate that a load is in 
process. Then resume processing as 
usual. 


If HISAM, set LS in the PCB. 
Otherwise, set L. 


Routine Label 


PROCESS 


18. Position data base to the last 
segment (GN calls). 


A Macro 
ASMTOLI 
Linkage to DL/I 









19. If a work file is present, 
copy partially created work 
file into new. 


OPEN RSTFILE Macro 


DLZDSEHO 
Work file 
BALR generator 


{1 


GET Macro 


PUT Macro 


CLOSE Macro 


IIT 


20. Reset processing options. 


Extended Description 








Save the address of the SDB for 
insert processing if it is for the last 
segment found in JCBSTOR3. 





OUTPUT 


ee 


WORKFIL 


PCB 


DBPCBPRO 


JCB 


JCBSTOR3 





DLZURGLO 


Routine 


Label 
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Figure 2-32. HD DB Reload (DLZURGLO) (Part 5 of 6) Figure 2-32. HD DB Reload (DLZURGLO) (Part 6 of 6) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


. ; 27. Close the printer. 


(= CLOSE Macro 


21. Read an unload record. If DLZURGUE ai 
° er 
oat end of file, go to step 21. C rene 28. Return to DL/I. 
dumm GET Macro 
Figure 
2-3.4 


DLZURGUF 


RGUSEGLV 


RGUSEGNM 
IOAREA 
CALLIST 

A (ASRT} 






22. Build SSA for segment. CALLIST 


A (ASRT} 






A (PCB) 


A(IOAREA) 
A (SSA) 














23. Load segment (ASRT CALL). 


(=) CALL Macro 


ASMTDL1 


24. Add the segment totals and 
return to step 20. 


DATA BASE 


DLZUSTAT DLZURGUF 


| RGUSEGLV | 25. Print comparative statistics 
report if the record is the 


last statistics record. evELST 


DLZCKPT 





tt 
eel 


oa ——— -— —--— —p 26. Close the input file. PCB 


DBPCBPRO | 
CLOSE Macro DLZURGLO — HD DB Reload DLZURGLO 


DLZURGLO — HD DB Reload DLZURGLO F 
Extended Description Routine 


Extended Description Routine Label 


Extended Description Routine Extended Description Routine Label 





Label 
STOPRUN 
21. 
NODUMP 
22. IOAREA is the address of the data 
portion of the unload record 


DLZURGUF. 





. Write DLZ301I OPEN error. 
Write DLZ3191 IO error. 
Write DLZ348I invalid return code. 


. Write DLZ385I and DLZ3841I if 
reload or checkpoint restart are not 
okay. 


Write DLZ3391 if reload is okay, or 
if checkpoint restart is okay. 
If this was RESTART (ULR), reset 


the processing option in the PCB 
back to A. 
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Figure 2-33. ACB Creation Utility Overview (DLZUACBO) (Part 1 of 3) 
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DLZUACBO — Create ACB Utility CSECT 


Extended Description 


1. Module identifier (DLZUACBOvrnp) is 
defined here. The level format is vrnp; 
where ‘v’ is the version, ‘r’ is the 
release, ‘n’ is an additional identifica- 
tion number, and ‘p’ is the latest 
PTF number that has been applied. 


The time and date are required for the 
report heading to DLZUACBO 
messages and control statements that 
are printed as this utility executes. 


. The parameter list for OPENSRCH. 
is passed in R1. 


OPENSRCH returns the address of the 
list control block in R1, which is then 
put in the parameter list for INSRCH. 


Write DLZ905I if GETVIS error 
returned from OPENSRCH. 





PROCESS 


. Load batch nucleus and establish 


. Acquire and initialize the 


. Read build cards until EOF. 


. Acquire storage for the userid 


. Syntax check the build cards. 


. If ‘USERID’ parameter is scanned, 


OUTPUT 


Partition 
DLZUACBOvrnp 


SCD and PST addressability. 


ex LOAD Macro 
(and GETIME and cSt 
COMRG Macros PSTSCDAD 





OPEN Macro 


I 


Ri 


A (List) 
List 

entry length 

offset to 

compare field 

length of 

compare field 
BLOPARM2 


psbname list control block. 


CALL Macro 


DOLZUSCHO 


OPENSRCH entry 
point 


J 










2-33.1 





GET Macro 


I 


USERIDCB 


control block. 


GETVIS Macro 


I 


PSTCODE1 


USERIDCB 
get storage for SOL/DS I/O area 
and set up userid control block. 


GETVIS Macro 


GETIME Macro 


CDLOAD Macro 


DLZUACBO 


Routine Label 





4. The length of storage needed 
(USERIDLN) is passed in RO. 


Write DLZ5781 if GETVIS error. 


. Write DLZ588I for an invalid 
delimiter, label, opcode, block type, 
parameter, operand, continuation, 
or invalid format. The output 
device is set at this time (SYSLINK 
or SYSPCH). 


If OUT=LINK was specified in the 
build card, SYSLINK is indicated in 
the PST. 


. The length of storage needed 
(PSBIOLEN) is passed in RO. 


Write DLZ5781 if GETVIS error. 


Modules DLZDLBPP and DLZDLBDP 
are loaded. 


Write DLZ574I if CDLOAD error. 


PROCUSER 











Figure 2-33. ACB Creation Utility Overview (DLZUACBO) (Part 2 of 3) 
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PSTCODE1 





BLDLCBAD a> 
A (List ctr! bik) 

PST ScD 

PSTSCDAD | [SCDDLIPS 

SCHCTLBK 

SCHFGRP 

SCHGROUP__ BLDDLTEN 

SCHGRPCT | [ENTRYNM 


BLDDLTEN 
ENTRYNM 
PST SCHGROUP 
PSTPSB SCHNGRP 
DLZDLBL4 


eS 


DLZUACBO — Create ACB Utility Csect 


Extended Description 





7. The psbnames from the PSB=operand 
are passed one at a time to INSRCH. 


The parameter list for INSRCH is 
passed in R1. 


Write DLZ9051 if GETVIS error 
returned from INSRCH or DLZ571I1 
warning message if a duplicate 
psbname is found. 


PROCESS 


7. Add valid psbnames to the list 
control block. 


=) 


BALR 


| DLZUSCHO LZUSCHO 


INSRCH entry 
point 2-33.1 
step 4 






8. Check that SYSPCH or SYSLNK is 
assigned and open the device. 


9. Set up to cycle the psbname PST 
PSTPSB 


build list entries, getting 
psbnames to give to the Block 
Builder. 


Move a psbname from a build list 
entry to the PDIR and go to 
build and write blocks. 


(== DLZDLBLO 


BALR Block Builder 
Routine 
2-33.2 







Write completion message. 


ze DLZLBLMO 
BALR Message Writer 
2-33.30 


10. 
11. 
12. Return to step 10 for next 
13. 









build list entry until there 
are no more psbnames. 


Free SOL/DS 1/O area and 
userid control block virtual 


storage. 
== FREEVIS Macro 


OUTPUT 
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List 


PST 


JUSERIDCB 


DLZUACBO 


Routine Label 


10. PSTERCOD is examined to see if any 
errors were posted by the Block 
Builder. If not zero, issue message 
DLZ587I to indicate the PSB will not 
be built and go to step 12 to attempt 
to build remaining blocks. 


. The completion message is normal 
unless a non-zero return code is 


found from DLZDLBLO. 
CARDEOF 
OPEN 


Write DLZ5891 to indicate processing 
has been completed for the PSB 
specified. 





Routine Label 


Figure 2-33. ACB Creation Utility Overview (DLZUACBO) (Part 3 of 3) 
INPUT PROCESS OUTPUT 





891-7 


PST SCHGROUP 14. Return to step 10 for each build 


list entry until there are no 


more psbnames. 


15. Free the psbname list control i 


block. 


=) 


A Macro 


DLZUSCHO 


CLOSESCH entry 


Point 
2-33.1 
step 8 










PST —-—— Pp 16. Close files and exit. 


PSTCODE1 
CLOSE Macro 


Return 
to VSE 
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Extended Description 
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Figure 2-33.1. Binary Search Insert Routine (DLZUSCHO) (Part 1 of 2) 
INPUT PROCESS OUTPUT 


From 
PFig. 2-33 
Step 2 


OPENSRCH Entry Point 


SAVE ior —-— ¥ 1. Acquire storage for the list elias 
control block, including one egisters 
group control block. [| 
(ean) GETVIS Macro eve 






ENTLNGTH 
COMPLOC 











R1 List 


offset to . Initialize the list and group 


length of 
compare field 
ENTBLK 
ENTBLKBL 


Caller 
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R1 R15 









Figure 2-33 
Step 2 


Beseman) 










From 
Figure 2-33 
Step 5 







INSRCH Entry Point 
_SAVE 












Caller 
> 4. If the psbname already has a Registers 
ENTBLK ot pale R15=8, then LSA 
. ENTLOC 

couptoe_| [cua eure 

COMPLNG 

NUMENT 
DLZUSCHO — ACB Maintenance Binary Search Insert Routine DLZUSCHO 
Extended Description Routine Label Extended Description Routine Label 





1. Module identifier is defined here. DLZUSCHO |DLZUSCHO 
Length acquired is X‘80’ bytes. One 
group control block will hold 16 build 


list entries. 


. Block now contains information 
needed to build a group control 
block. The first (or only) block is 
obtained before the first actual insert. 


. The address of the created block is 
returned to the caller. 


Note: This routine is very generalized 
and could be used for other purposes, 
but it is only used by DLZUACBO to 
build the psbname build list control 
block. 


. Routine identifier (INSRCH. .) is 
defined here. 














Figure 2-33.1. Binary Search Insert Routine (DLZUSCHO) (Part 2 of 2) 
INPUT PROCESS 


x 


ENTBLK SAVE ——-— 5. If no room for new build list 


ENCNT ENTBLKSZ 


entry, issue GETVIS for a new 
group control block, chaining it 
to any previous blocks. 


(az) GETVIS Macro 


6. Insert new entry in collating 


ENTBLK SAVE 


new entry 





7. Return to caller with return 
code in R15. 


: Caller 


— 


Figure 2-33 
Step 11 


CLOSESCH Entry Point 


> 8. Free all group control biocks 
and then the list control block. 


dumm) FREEVIS Macro 


Ri — 


A (list ctrt bik) 


FREEVIS Macro 





Catler 9. Return to caller. 


ae 


Extended Description Routine Label Extended Description 





5. There is enough room for 16 entries 
in a group control block. 


6. 
7. 


8. Routine identifier (CLOSESCH) is CLOSESCH |CLOSESCH 
defined here. All group control blocks 
can be found beginning from the list 


control block. 





OUTPUT 








ENTBLK 


[encnt __] cote LBik 


NUMENT 


Ri Ri 


Figure 2-33 
Step 5 
Caller 
Registers 
Figure 2-33 
Step 11 


Routine Label 
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Figure 2-33.2. Block Builder Routine 1 (DLZDLBLO) 
INPUT PROCESS 


From Figure 
2-33 Step 8 


PSB 


1. Acquire storage for PSB specified, 
load, and convert it. 


uu 


FLOADPSB 
=/ i 
2. If building utility go to step 4. 





DLZOLBL4 


FLAGSBYT 


USERIDCB 


3. If DL/I SOL/DS tables are to be built: 
A. Move userid control block information 


to common area. 
B. Go build PSB SOQL/DS tables. 


DLZDLBPP 


em 2-33.4 


BALR 


i 






PSB 
PSBDBREF ——-—-+- - 


4. Build temporary DDIR entries for all 
data bases directly identified in the PSB. 


5. Calculate and acquire storage needed 


for SDBs, etc. 
_ [cspastR_ 


6. Point to first PCB to be built. 


PSB 







| 


FLSTAB 


i 





ial 


7. Initialize PCB. 
a 
PSB 
— — — -}+ — —-> 8. Build SDBs for PCB. 


BLOSDB. 


— 


9. Loop to step 5 through all PCBs for PSB. 


DLZDLBLO — Block Builder Routine 1 


Extended Description 


Extended Description Routine Label 


8. Only those SDBs for segments directly 
referenced by SENFLDs are built at this 
time. Generated SDBs will be built in 
DLZDLBL1. 








OUTPUT 


PSB 


DLZDLBL4 


DDIR Temp 


DTABDMB 


PCB 


¥ 


ees 


To Figure 
2-33.3 


DLZDLBLO 


Routine 








Label 





Figure 2-33.3. Block Builder Routine 2 (DLZDLBL1) . 
INPUT PROCESS OUTPUT 


From Figure 
2-33.2 


DUMDDIRB 1. Get first temporary DDIR address. 
DDIR 
Per op Ny Ae i 2. If DMB already built for DDIR entry, go 
to step 5. 
. > 3. Load the DBD. 
EXTDBD 


DBD 


. Build the DMB. 


I 


PREFIX SEGTAB 





Se 





FLDTAB LCHILD MB 


0 


BLDDMB 


5. lf any unprocessed SDBs exist for this 
DDIR entry, process them. 


SORTAB INDEXTAB 


lil 


COMPRESSION CSECT 


n 
m 
ie) 


; 


BLOSDB 





I 


2-33.11 


n 


DB 





SEGTAB 


; 


6. If any DDIRs remain to be processed, get 
next and go to step 2. 


> 


CB 





I 


Oo 


TF 





i 





To Figure 
2-33.6 
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OLZDLBL1 — Block Builder Routine 2 DLZDLBL1 


Extended Description Routine Label Extended Description Routine 


. The DBD address is reset from the DMB 
Name Table. 


. Any DBDs referenced by this DBD are 
added to the dummy DDIR list. 


. If the DBD is for an index data base, 
the DDIR entry for the target data 
base is located and processed first. 


. No DMB is built for logical DBDs. 


. SDBs pointing to VLC or logical 
segments are reset to point to the 
physical segment PSDB. 


. All generated SDBs are built here. 


. If additional SDBs were chained to a 
prior DDIR during step 5, return to that 
DDIR, and go to step 2. 











COMPRESSION CSECT 





Label 
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Figure 2-33.4 DL/I Documentation Aid PSB Processing (DLZDLBPP) (Part 1 of 4) 











Figure 2-33.4 DL/i Documentation Aid PSB Processing (DLZDLBPP) (Part 2 of 4) 





INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
F Figure 2-33.2 step 1 
a aad P PSBSQLIO |_____ > 4. Create the PSBBASIC record and mae PSBSQLIO 
insert into PSBBASICDATA 
[71 SQL/DS table. C7 
R13 1. Save DLZDLBLO registers and set 
up addressability to LPSBD and LPSBD 


DLZDLBL4 


( DLZDLBL4 


aes 





PSBSQLIO. 


2. Get storage for SOLDSECT, and 


R4 


PSBSQLIO 


y i yt 








em Creease 
™ [as | 


5. Create the PSBPCB record for each [> 
PCB in this PSB and insert them 
into the SQL/DS PSBPCBDATA 


PSBSOLIO 
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get addressability to it. table. 
Gawd cei macro 
| => 
3. Get storage for SOLCA and get R5 one | 2336 | 
addressability to it. PSBDBREF 
DLZDLBL4 GED ces mecro e- 
[vseracs__] 4. If SQL/DS not connected, DLZDLBL4 
CONNECT to SQL/DS. 
psBsa.io 
DLZDLBPP — DL/I Documentation Aid Tey oe Comnentnnan ald 
Extended Description Routine Label _ Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


4. If SQL/DS tables already 
exist for this PSB name, 
DELETES are issued 


1. DLZDLBPP DLZDLBPP 


2. SQLDSECT is used by 





SQL/DS. The size of 
storage needed is in 
SQLDSIZ and passed in 
RO. Address of storage is 
saved in PSQLDSCT in 
common area. 





against the 
PSBBASICDATA, 
PSBPCBDATA, 
PSBSEGMENTDATA and 
PSBFIELDDATA tables to 
delete all records 


4 associated with the PSB 
‘ . name. The new 
S. Ne ee eee PSBBASICDATA table is 
‘o) inserted. 
Ss. . SQLCA is SQL/DS 
N communication area. The . Alli PCB information is put 
oe size of storage needed is in record. The Database 
LENSQLCA and passed in Reference Table is stepped 
< Register 0. Address of through and a procseq is 
@ storage is saved in picked up if that entry 
> ADRSQLCA in common points to the current PCB. 
ro) area. 
. . On all calls to SQL/DS if DOSQLCON 
© negative return code is 
mh returned, write DLZ5751 
Oo and DLZ576I. 
ao] 
@ 
9 
=. 
2) 
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Figure 2-33.4 DL/! Documentation Aid PSB Processing (DLZDLBPP) (Part 3 of 4) 


INPUT PROCESS 


BAL 
PSBSGTB 


Ld 





>a 6. Create the PSBSEGMENT record 
for each segment in this PSB and 
insert them into the SQL/DS 
PSBSEGMENTDATA table. 


SD Cae 


2-33.7 


ErePe r—__ >4 7. If PSB is not field level sensitive, 


DLZDLBPP — DL/! Documentation Aid 


' Extended Description Routine Label 


6. All segment information is 
put into the record at this 
time. 





Extended Description 





OUTPUT 


Le 


Routine 


Label 





Figure 2-33.4 DL/I Documentation Aid PSB Processing (DLZDLBPP) (Part 4 of 4) 
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LPSBD 


fe 


DBPCB 


[eer oel 


PSBSGTB 


aa 


FLE 


FLSTAB 


FLSLSTAD 





DLZDLBPP — DL/I Documentation Aid 


Extended Description Routine 


8. Addressability is achieved DLZDLBPP 
for each FSB in the PSB 
and a call is made one at a 
time to PSBFIELD to 
process the FIELD 
information. 


. Write DLZ5771 if 
FREEVIS Error. 


PROCESS 


8. Create the PSBFIELD record for ae 
each field in the PSB and insert 
them into the SQL/DS 
PSBFIELDDATA table. 


= PSBFIELD 


BAL 


9. Callers registers are restored. 


Label 


FREESQLD 








Return to 
Figure 
2-33.2 


Extended Description 


OUTPUT «= 


PSBSQLIO 


eres 


Routine 


Label 
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Figure 2-33.5 PSBBASIC Processing (DLZDLBPP) (Part 1 of 2) 


INPUT PROCESS OUTPUT 
From Figure 2-33.4 


DLZDLBL4 1. Set PSB name host variable. 


are a PSBSQLIO 
USRPSBNM 
LPSBD > 2. Set Language host variable. ae: 
3. if PSBBASICDATA record does not 
exist for PSB name, go to step 5. 
See exc sarps 
4. Delete records from 
PSBBASICDATA, PSBPCBDATA, 
PSBSEGMENTDATA, 
PSBFIELDDATA for the PSB name. 
Game exec sais 
DLZDLBPP — DL/I Documentation Aid 
Extended Description Routine Label Extended Description Routine Label 


1. PSBBASIC PSBBASIC 


3. CREATEDATE and PSBBAS1 
CREATEUSER are 
selected if the record is 
there to preserve the 
creation information. 











Figure 2-33.5 PSBBASIC Processing (DLZDLBPP) (Part 2 of 2) 


INPUT PROCESS 


PSBSQLIO | ___.. > ~5. Insert PSBBASIC record into the 


oT PSBBASICDATA table. 
Sees EXEC SQL/DS 


DLZDLBPP — DL/l Documentation Aid 


Extended Description R 


loutine Label 
- | . 


Extended Description 
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Figure 2-33.6 PSBPCB Processing (DLZDLBPP) (Part 1 of 2) 
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DLZDLBPP — DL/I Documentation Aid 


Extended Description 





Routine 


PROCESS 
From Figure 2-33.4 


1. 


Set PCB number host variable. 


Set DBTYPE host variable to ‘DB’. 


Set DBD name host variable. 


Set PCB processing option host 
variable. 


Set Key length host variable. 


Label Extended Description 


YY y | 





OUTPUT 


Routine 


PSBSQLIO 


Figure 2-33.6 PSBPCB Processing (DLZDLBPP) (Part 2 of 2) 
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PSBSQLIO 
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DLZDLBPP — DL/I Documentation Aid 


Extended Description 


7. If index is there, entry 
points to PCB address. 


8. 








PROCESS OUTPUT 

T___ > 6. Set Positioning host variable. eS PSBSQLIO 
[_——— >] 7. Search Database Reference Table a 

for Secondary Index for this PCB. 

If not there set indicator variable 

to null and go to step 5. 
-___ >—§ 8. Set Secondary Index host variable. [[—— > 
> 9. Insert PSBPCB record into the aa PSB SQL/DS 


PSBBASICDATA table. tables 


ay EXEC SQL CL) 
Bee] ctu io 


Figure 
2-33.4 


Routine Label Extended Description Routine Label 
TPROCSEQ 


FOUNDIND 
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Figure 2-33.7  PSBSEGMENT Processing (DLZDLBPP) (Part 1 of 2) Figure 2-33.7 PSBSEGMENT Processing (DLZDLBPP) (Part 2 of 2) 


INPUT : PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Figure 2-33.4 PSBSQLIO | __ >§ 7. Insert PSBSEGMENT record into Re PSB SQL/DS 


ee PSBSEGMENTDATA table. tables 
Gee EXEC SQL/DS Co 


workarea 





1. Set PCB number host variable. aay PSBSQLIO 
eS ee 
Figure 
2-33.4 
workarea - 2. Set Segment number host variable. - 
PSBSGTAB ___—. >4§ 3. Set Segment name host variable. aaa 
a 
PSBSGTAB >a 4. If parent does not exist, set 
indicator variable to null and go to 
pa. 
| _____.>§ 5. Index to parent and set parent 
host variable. 
PSBSGTAB >| 6. Set processing option host ae 
variable. 
DLZDLBPP — DL/I Documentation Aid DLZDLBPP — DL/I Documentation Aid 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 
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Figure 2-33.8 PSBFIELD Processing (DLZDLBPP) (Part 1 of 3) Figure 2-33.8 PSBFIELD Processing (DLZDLBPP) (Part 2 of 3) 





INPUT PROCESS mn OUTPUT INPUT PROCESS OUTPUT 
From Figure 2-33.4 FSB [> 7. Set start position or start name REE PSBSQLIO 
host variable. 
workarea LD 1. ~Set PCB number host variable. a PSBSOLIO 
FSB 4 8. Set data type host variable. ita 
FSBUVTYP 
workarea > 2. Set Segment number host variable. [~L D 
9. If-there is a field exit routine, go omy 
set host variable. 
PSBSGTAB | ____ >4_ 3. Set Segment name host variable. aoe 
| SD Fen 
mm [aase 
workarea ——___ >8 4. Set Field number host variable. > , 
FSB >i 5. Set Field name host variable. ae FSB _——,>'I 10. If field is a SENFLD, set initial ee 
value variable to null and go to 
FSBUVTYP step 13. 
FSB Te 6. Set length host variable. i 
DLZDLBPP — DL/ Documentation Aid DLZDLBPP — DL/ Documentation Aid 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


If field start was indicated FLDSTART 
by a field name, the 

name of the previously 

defined field is retrieved 

and stored in POSNAME; 

otherwise the position, if 

there, is stored in 

POSITION. 


1. PSBFIELD 


6. Length is incremented by 
one to get true length. 


TYPEFLD 


The Field Exit Routine TESTFERT 
Table points to a linked 
list of FSBs that have that 


FER. These links are 
traversed in FERTNM 
and FER name is 
returned. 








a; 
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Figure 2-33.8 PSBFIELD Processing (DLZDLBPP) (Part 3 of 3) 


INPUT PROCESS 


11. Set Replace indicator variable to 
null. If no initial value, set 





indicator variables to null and go 
to step 14. 
FSB 12. Set initial value host variable 


according to length and 
truncating according to data 
type. Go to step 14. 


FSBIVA 


FSB 13. Set replace host variable. 


FSBUVTYP 


PSBSQLIO 14. Insert PSBFIELD record into 
PSBFIELDDATA SQL/DS table. 


Gp EXEC SQL/DS 


. DLZDLBPP — DL/l Documentation Aid 


Extended Description Routine Label Extended Description 


12. All initial values are 
picked up from the initial 
value table according to 
BYTES. Character values 
are truncated to 254 
bytes. Hex values are 
truncated to 4 bytes. 
Packed decimal values are 





WN truncated to 8 bytes. 

@ Zoned decimal values are 

Q truncated to 15 bytes. All 

roe floating point values are 

= converted to 8 bytes. 

N . Write messages DLZ575I 
and DLZ576I if SQL/DS 
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Figure 2-33.9 Field Exit Routine Processing (DLZDLBPP) 
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DLZDLBPP — DL/I Documentation Aid 


Extended Description 


1. Message DLZ926I is 
issued if FER not found. 
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Routine 





PROCESS 
From Figure 2-33.8 


1. Get addressability to field exit 
routine table and traverse the 
linked lists until pointing to current 


FSB entry. 


2. Set Field Exit Routine name host 


variable. 


Label 


ce 
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Extended Description 
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2-33.8 
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Routine 
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Figure 2-33.10. Block Builder BLDDMB Routine (DLZDLBL1) 
INPUT PROCESS 
From Caller 
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PREFIX SEGTAB 


eee 


1. Get and initialize storage for DMB. 


(me) 
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FLOTAB EXTDBD 


ae 


GOMBSTR 
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SEGTAB 


BE eal 


LCHILD 
INDEXTAB 


Eas 


COMPRESSION CSECT 


2. Build PSDBs, FDBs, Secondary Lists, and 
Compression CSECTs for each segment. 


I 


PSDB 


ae 


COMPRESSION CSECT 








3. Process enqueued Secondary Lists; build 
segment concatenated key table; and 
initialize subsequence source, or search 
secondary lists. 


Ff 
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SEGTAB SCKL 





i 
I 


FLOTAB PSDB 
BLDTBL 






I 
! 


SEC INDEXTAB 








Hil 
|e || 
I 
a 


DLZDLBL4 4. If building utility psb, go to step 6. 
5. If DL/I-SQL/DS tables are 
DLZDLBL4 to be built go build DBD tables. DLZDLBL4 
DLZDLBDP 
6. Move in DTF(s) or ACB. OTE Aca 


MACBDTF 


Return to 
Caller 


DLZDLBL1 — Block Builder Routine 2 DLZDLBL1 
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Extended Description Routine Label Extended Description Routine 


4. Current and next DDIR addresses are DLZDLBL1 
saved in common area for DLZDLBDP. 


1. 


2. Until the concatenated key table is built, 
all secondary lists are enqueued on the 
DDIR and will be built during step 3. 








Label 
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Figure 2-33.11. Block Builder BLDSDB Routine (DLZDLBL1) (Part 1 of 2) Figure 2-33.11. Block Builder BLDSDB Routine (DLZDLBL1) (Part 2 of 2) 
INPUT From Caller gas PROCESS OUTPUT INPUT PROCESS OUTPUT 


7. 1f SDB is not the root for an alternate 
. If no more SDBs, return to caller. 


sequence, go to step 11. 


# 2. Find matching physical segment table 8. Generate SDB for index. 


™ 
3. If segment has source, repoint SDB to SDB 


p 
co) 
=_ 


2] 


DB 


L 
E 


new PSDB. Go to step 1. . Generate SDB for target of index and SDB 
IRPSOUR | flag to indicate parent chain is to be 
| | DDIR 
owen ian aya = 
R6 
SEGTAB SDB JGeNsoa | [ 
ell [ 4. If segment is a logical child, build 
generated SDB chain. 
10. Go to step 1 and process SDB generated 
(=a) eee in step 9. 
5. If SDB is a generated SDB for a logical 11. If SDB is not for HIDAM root, go to 
parent or the target of an alternate step 13. 


sequence index, and no generated parent 
chain exists, build one. 


12. Generate SDB for primary index. SDB 


R1 13. Point to next SDB for DDIR, and go R6 
— ee ee ees) ee 


6. Set ACB number, physical segment SDB 
PSOB code, key field length, PSDB address, 


oe and next SDB to PSDB address. 


JUL 


DLZOLBL1 — Block Builder Routine 2 DLZDLBL1 DLZDLBL1 — Block Builder Routine 2 DLZDLBL1 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 

. Output message DLZ912I if not 
found. BLDSDBF 

. If source is in another DBD, the SDB 
to be processed is the next one for 
this DBD. Otherwise, process the 
original with the new segment name. 


BLDSDBG 


BLDSDBI 


. If segment is a normal logical child, 
the logical parent SDB is generated 
and flagged to cause generation of 
the parent chain when the LP is 


Z WOTD9g 


processed. All generated SDBs are 
chained to the DDIRs for the related 
data bases. 





ye1odOC jo poe 


uor 


6LI-7Z 
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Figure 2-33.12. Block Builder Routine 3 (DLZDLBL2) (Part 1 of 2) | “Figure 2-33.12. Block Builder Routine 3 (ODLZDLBL2) (Part 2 of 2) 
INPUT = PROCESS : OUTPUT INPUT PROCESS OUTPUT 


From Figure 
2-33.3 









7. Build Level Tables. LEV 
- 
DSG 
[] a | —_—_—_** 8. Build DSGs and set key feedback pointers. DSG JCB 
FDB 


ae | =| 


9. Calculate maximum path length for PCB. 


CMAXPL 


10. If more PCBs, address next and go to 
step 2. 


DDIR Intent List 


1. Calculate size of Intent List and 
obtain space. 


lil 


2. Process PCB. 


SDB 
3. Process SDBs for PCB. 






; 
; 





BLDSDB 


2-33.13 


4. Check for valid hierarchical structure. 


$oB 





I 
i 


SEC 


Ss 







HIERCK 





I 
I 






5. Relocate pointers in FERT tables. 





RELFERT 
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Go to Figure 
2-33.14 





= 
I 
ih 


6. Get space and move PCB. PCB DCB 





J 
I 


DLZDLBL2 — Block Builder Routine 3 DLZDLBL2 DLZDLBL2 — Block Builder Routine 3 DLZDLBL2 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


. The SDB expansion and FSBs for any 
field level sensitivity are built here. The 
parentage flags in the SDB are set, the 
Intent List entry is built, and any 
propagation is done. The index SDB, if 
any, is initialized. 
. Space is allocated for the PCB, JCB, key 
feedback area, DSG, and Level Table. Hl 
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Figure 2-33.13. Block Builder BLDSDB Routine (DLZDLBL2) 
INPUT From Caller PROCESS 











DLZDLBL2 — Block Builder Routine 3 


Extended Description Routine 


. Maximums set are: 
a. Maximum segment length in 
either physical or user’s view. 


VE . Maximum concatenated key 

Q length. 

c. . Maximum concatenated segment 
io} length. 

3 . Longest segment at this level and 
nN path sensitive. 

< . Output message DLZ9091 if 

o PROCOPT changed. 

ma . All intent propagation is done 
f here. 

O . Fill in the generated index SDB for 
=> HIDAM primary indexes or alternate 
fo) sequence. 

S 

Sg 

S 

kd 

© 

= 


T8i-@ 


1. 





If segment is field sensitive, build SDB 
expansion and FSBs. 


( BLDFSB 


. Set SDB parentage flags. 


. Calculate maximums for save area 


sizes. 


: SETMAX 


. Build intent list entry. 









INTPROP 


. Fill in any generated index SDB. 


BLDISD8 


If any target SDBs, get first and go to 
step 1. 


Label Extended Description 


BLDSDB2 
BLDSDB3 


INTENTL 


BLDSDB4 





OUTPUT 


SDBXP 


mii 


SB 


: 


SDB 


Intent List 


Ls 


SDB DDIR 
Return to 
Caller 
DLZDLBL2 
Routine Label 
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Figure 2-33.14. Block Builder Routine 4 (DLZDLBL3) (Part 1 of 2) 


INPUT From Figure 
2-33.12 


i 
ge 
i 


PSB 


a 


[| 





DLZDLBL4 


DLZDLBL3 — Block Builder Routine 4 


Extended Description 


. Index work area, Index I/O area, 
segment compression work area, and 
I/O work area 


. PSQLDSCT, DSQLDSCT and 
ADRSQLCA are cleared if 
FREEVIS successful. 


Write DLZ578I if FREEVIS 
fails. 








3. Set SDB Expansion for alternate 


sequence. 
SSDBXPF 
4. Validate VLC LT sequence field 
location. 
CVSFNPP 
5. Process and output DMBs. 
6. Process and output PSB. 
PSBMOV 


7. If SOL/DS tables were to be built, DLZDLBL4 


Routine Label 


BLDEND 
CALWAS 
DDIR2SC2 
PSBMOV 
FREESTOR 
FREEPSB 


PROCESS OUTPUT 


1. Build index maintenance PCB if required. 7 
2 : 


. Calculate sizes of work areas. 


SDBXP 


I 
li 


pr’ 
EEL 


free SOLDSECTS and SOLCA 
storage. 


8. Free PSB storage. 


FREERT 


I 
li 


OLZDLBL3 


Extended Description Routine 














Figure 2-33.14. Block Builder Routine 4 (DLZDLBL3) (Part 2 of 2) 


INPUT PROCESS OUTPUT 








DTADMB 


9. Search DMBNAME table for DMB that 
‘needs a utility PSB. Go to Step 11 if 
none. 


. Build utility PSB. 


( ; DLZDPSBO 


. Go to PSBPASS in module DLZDLBLO 
(Step 1., Figure 2-33.2) to process utility 
PSB just built. 


. Free DBD storage. 


. Return. To Figure 
2-33 Step 9 


DLZDLBL3 — Block Builder Routine 4 DLZDLBL3 


Extended Description Routine Label Extended Description Routine 


9. Utility PSB is built for every HISAM, UTILPSB 
HIDAM, HDAM, and secondary 
index DMB just outputted. 


. The dmbname is moved to the 
psbname location and a suffix ‘uw’ 
added. The no utility PSB required 
indicator is turned on at DTABFLAG 
so we don’t try to build another 
utility PSB for this DBD the next 
time around. Return to Step 9 to 


build the PSB. The output of 
DLZDPSBO is like PSBGEN output. 


FREEDBD 


. PSTERLOD = 0 if OK and non-zero RETURN 
if not. 





Label 
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Figure 2-33.15. Acquire Storage Routine (DLZDLBLO) 
INPUT PROCESS 


From Caller 


= 1. Acquire storage. 


2. Chain storage acquired. 


3. Return to caller. 


DLZDLBLO — Batch Control Block Builder CSECT 


Extended Description Routine Label 





1. Write message DLZ905I if GETVIS GETSTOR 
space is not available. 


2. If this is a storage request for a DBD, GETSTORI 
the storage is chained off at 
ADDRDBBD rather than ADDRC. 








OUTPUT 


R1 


Storage 


— >) GETVIS Macro [| 


ADDRC ADDRDBD 





To Caller 


DLZUACBO 


Extended Description Routine Label 
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Figure 2-33.16. Intent Propagation Routine (DLZDLBAO) (Part 1 of 2) 
INPUT 


From 
Figure 
2-33.13 
Step 4 


SDBPSDB 
SDBTARG 





JSOBF3 
= 


PSDB SEC | 
DMBF LAG DMBSCDE Vv 


DMBLST OMBSECND 





SVBEF3 


DLZDLBAO — Intent Propagation CSECT 


Extended Description 


1, This routine propagates intent to all 
PSDBs related or dependent on the 
PSDB for the entry SDB. Only SDBs 
that are built directly from SENSEG 
statements in the associated PSB are 











PROCESS 









> 1. Set read only or exclusive 
intent for entry SDB. 


SETNT 


Build PSIL 
BALR Routine 
2-33.17 






2. Set update intent for entry SDB 
and its target if either is 
replace sensitive. 


SETNT 


Build PSIL 
Routine 
2-33.17 







> 3. Check for necessary intent 
propagation. Skip to Step 7 
if entry SDB is not ISRT/DLET 
sensitive. 


> 4. If ISRT sensitive, skip to 
Step 6. 


Routine Label 





Extended Description 





Figure 2-33.16. Intent Propagation Routine (DLZDLBAO) (Part 2 of 2) 


OUTPUT INPUT 


Caller 


pore i | 
(__h LIMITAB 





— 
| 
| 
| 
| 
L 


Catter 
Registers 


DLZUACBO DLZDLBAO — Intent Propagation CSECT 


Routine Label Extended Description 





5. Any intent set will be update type. 
Storage is acquired for a limit table 
and is constructed with PSDB 
addresses. These addresses show 
children of the entry PSDB, any 


PROCESS OUTPUT 


5. Process the entry PSDB and ali LIMITAB 
necessary related and dependent 
PSDBs for D PROCOPT. 


SETNT 


Build PSIL 
Routine 
2-33.17 






ALR 


> 6. Process the entry PSDB and all 
necessary related and dependent 
PSDBs for | PROCOPT. 


SETNT 


Build PSIL 
Routine 
2-33.17 






ed 


BALR 


7. Return to caller. R15 


ab FREEVIS Macro 





Figure 
2-33.13 
Step 4 
DLZUACBO 
Routine Label Extended Description Routine Label 


After processing the LIMITAB 
entries built, the area is freed. 


7. Set the return code and make sure 
all the limit tables are freed. 





passed to this routine. 


For a process option (PROCOPT) of 
G, the entry SDB and all targets are 
set to exclusive. For E PROCOPT, 
the entry SDB and its immediate 
target are checked for key sensitivity. 
If the SDB is data sensitive, the intent 
- is set to exclusive. Otherwise, no 
intent is set. 

















necessary higher related PSDBs, any 
index relationships, any logical 
children, the logical parent, physical 
parent, and physical pair of the entry 
PSDB. After the table is constructed, 
each entry is passed to SETNT to set 
update intent and the table area is 
freed. Exclusive intent is propagated 
along with delete. 


. Any intent set will be update type. 
A limit table is constructed with 
addresses of those PSDBs that will 
be passed to SETNT. 


It is also determined if the entry SDB 
can insert its logical parent or physical 
parent as a result of a concatenated 
segment definition. If it can, the 
logical parent or physical parent is 
processed in the same manner as the 
entry PSDB. The physical pair is also 
processed if one exists. 
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Figure 2-33.17. Build PSIL Routine (DLZDLBAO) 


INPUT PROCESS OUTPUT 
From 
Figure 
2-33.16 
DDIR PSDB 
————)" + 1. Calculate the address of the beginning 
ENQLSTA of the segment descriptor bits in the 


intent list area for this PSDB and the 
beginning of the intent list entry for 
this data base. 





PISW Intent List 


—— FP 2. Reset ‘GO’ PROCOPT switch intent 
list entry for data base, if necessary. 


SDB 


q 3. Set the oe. vs fe intent List 
—_— —B : requested sensitivity for this 
PSDB. a F 


R1 R7 
tC) | 4. Return to caller. 








To 
Figure 
233.16 
DLZDLBAO - Build PSIL CSECT DLZUACBO 
Extended Description Routine Label Extended Description Routine Label 


DLZDLBAO | SETNT 
ENQI 


Z wonse¢ 





HeledC jo pore, 


Uorl 


S8I-7. 
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Figure 2-33.18. Write DMBs (DLZUAMBO) (Part 1 of 2) 


INPUT 


From 
Figure 
2-33.14 
Step 5 


DDIR D 


—- 


MB 
OMBNREF ——_— 










DDIR DMB 
DDIRADOAT DMBLENTB 

OMBSECTB 
PSDB 


DMBVLDFG 
COMPRES- 
SION 

SEC CSECTs 

DMBSCDE 


CSECTs 


SEC DDIR 


DMBSCDE DDIRDMBN : 


DMBSECDB 





PSDB 


DMBPSDBN 


DODIR 


DMB 
DDIRADOR PREFIX 
ACBEXT 


PSDBs 
SEC LIST 





DMB _— 


DMBORG 


DLZUAMBO — Block Mover CSECT 


Extended Descriptio 





. Process all DMBs referenced in DDIR 
entries unless already built or 
LOGICAL. 


Write message DLZ905I for GETVIS 
error. 


. The compression CSECTs and index 
maintenance CSECTs are moved to the 
new DMB. 


Write message DLZ570I for an invalid 
SEC list code found in a DMB. 


. The reference list is the last part of 
the DMB. If the DMB is not in the 
list, it is added. Repeat this step for 
each SEC. 


. Any addresses which do not fall within 
the DMB are set to zero. 





OUTPUT 


PROCESS 


1. Acquire storage for DMB and 
external reference tables. 


oa GETVIS Macro 


SEC 


DMB 
DMBDALGR | | DMBXITAD 


2. Convert addresses which PSDB 


DMB 
reference locations within DMB aa 
to offsets from DMB start. ae 


XMT 
CSECTs 


SEC 


3. Change DDIR addresses in the DMB 
secondary lists to relative DMB Reference 


numbers as to where the DMB 
entry is in the DMB reference 
list. 


4. Return to Step 2 to process the 
next PSDB if there is one. 


DMB DMB 
PREFIX DMBNREF 
ACBEXT 

PSDBs 

SEC LIST 


COMP 
CSECTs 
XMT 
CSECTs i 


DLZUACBO 


5. Move old DMB to new DMB. 


6. If HSAM, include MTMOD or SDMOD 
for linkedit. 





Extended Description Routine 


6. The names in the relocatable library 
of the required modules are 
DLZTAPE or DLZDISKI and 
DLZDISKO. 


Routine Label 





Label 
DMBOUT!1 








Figure 2-33.18. Write DMBs (DLZUAMBO) (Part 2 of 2) 
INPUT PROCESS 


DDIR 


——— >] 7. Write DMB to SYSLNK or SYSPCH. 


8. Free the new DMB storage and 
return to Step 1 to process the 
next DDIR if there is one. 


j=) FREEVIS Macro 


9. Return to caller. 


Routine abe 





DDIR 


DDIRQE —_—_ 
| DDIREND | 


DLZUAMBO — Block Mover CSECT 


xtended Description Extended Description 







7. The same subroutine is used for the 
PSB also. 


8. Write message DLZ926I for a 
FREEVIS error. 





OUTPUT 
SYSLNK SYSPCH 
To Figure 
2-33.14 
Step 5 
DLZUACBO 
Routine Label 
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Figure 2-33.19. Write PSB (DLZUAMBO) 


INPUT 


ENQLSTA PSB Prefix From Figure 
PSIL 2-33.14 
[ru] a 
PSBXIOWK 
PSBSEGWK 
PSBPST 


PSBNDXWK 
PSBIOAWK 


PCB 
JCB 


|oscs__ |} _ sos 
LEVTABs 


SDB XP XMT PCB 


mae 


PSB Prefix 


Ea 


PS 


PSIL 
PSB Prefix 


DBPCB1 














B 
LEVTAB 
SDBXP 


DBPCB2 


SDBXP 
XMTPCB 


DLZUAMBO — Block Mover CSECT 
Extended Description 


1. The size calculation formula is 
PSBPST — PSBXIOWK — PSBSEGWK 
— PSBNDXWK — PSBIOAWK + length 
of PSIL. 


Write message DLZ905I for GETVIS 
error. 


4. 


5. Write message DLZ926I for 
FREEVIS error. 


PROCESS 


1. Acquire storage for entire PSB. 


== GETVIS Macro 


2. Move pieces of PSB to acquired 
storage. 


3. Convert addresses which 
reference locations within PSB 
to offsets from the correspond- 
ing PCB. 


4. Write intent list/PSB to 
SYSLNK or SYSPCH. 


5. Free the new PSB storage. 


am FREEVIS Macro 


6. Return to caller. 


Routine Label Extended Description 





OUTPUT 






PSB 
PSIL 
PSB Prefix 






SYSLNK SYSPCH 
DLZUACBO 
Routine Label 
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Figure 2-33.20. Build PSB (DLZDPSBO) (Part 1 of 2) 


INPUT 


Rt 2.33.14 
A (LIST) Step 9 
LIST 


ae 


DBDGEN 
Control 
Block 


PREFIX 


[J 


DBDGEN Control Block 


SEGTAB FLOTAB 
SEOPARC 
[secrioTs | 





DLZDPSBO — Utility PSB Generator CSECT 


Extended Description 


1. Routine identifier DLZDPSBO vrnp is 
defined here. A parameter list con- 
taining DBD address is passed in 
Register 1. The contents of this DBD 
are used to create the utility PSB. 


The PSBGEN size will be the fixed 
size plus the number of segments 
times the length of SENSEG entry. 


It is possible to have an invalid access 
method error to pass back to 
DLZDLBLO. 


. The result will be stored in PSB 
Prefix. 


. The area is also cleared to zeros. 
Write message DLZ9051 for GETVIS 
error. 





From Figure 


PROCESS OUTPUT 
. _ Caller 
> 1. Establish addressability and } Registers 
calculate the required PSBGEN 
size. Lh 


Sy 2. Using DBD, calculate required 
key feedback length and add to 


PSBGEN size. 


3. Acquire PSBGEN storage. 


== GETVIS Macro 


Routine Label 


IDLZDPSBO }DLZDPSBO 


LIST 


PSBGEN 
Control 
Block 


DLZUACBO 


Extended Description Routine Label 














Figure 2-33. 20. Build PSB (DLZDPSBO) (Part 2 of 2) 
INPUT PROCESS 


4. Fill PSBGEN Prefix and PCB. 


5. Fill SENSEG entries. 


6. Move DBD name to DB Reference 
Table. 





Caller 
Registers 


ae 7. Return. 

————f] 

DLZDPSBO — Utility PSB Generator CSECT 

Extended Description Routine Label Extended Description 


4. PROCOPT of ‘A’ is set in PCB for 
all DBDs except secondary index 
where ‘LS’ is set. The ‘A’ is changed 
to the proper ‘load’ by batch initializa- 
tion if necessary. 


. Same PROCOPT as in Note 4. 
. In addition, no SORTAB is indicated. 
. The address of the built utility PSB 


is returned to the caller in the 
parameter list. 





OUTPUT 










PSBGEN 


PREFIX 
DOBPCB 
DBREFTAB 
















R1 


1 
code 


R15, 









To Figure 
2-33.14 
Step 9 


DLZUACBO 


Routine Label 
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Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 1 of 9) 


INPUT | PROCESS 
1. Initialize base register. ___.> 


2. Set SOL/DS error exit to 
ERRORS75. 


Gam cc sauns 


3. Do initialization for DBD rena 


processing. 


4. If storage acquired for SQL/DS 
Interface Control Block, go to 
step 6. 


5. Get storage for SOQL/DS Interface aa 
Control Block. 


<a ices 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label 


DLZDLBDP DLZDLBDP 


Extended Description 

















1. 





2. EXEC SQL whenever 
SQLERROR issued. No 
code is generated by this 
statement, it is handled at 
SQL/DS PREP time. If an 
error should occur during 
SQL/DS processing, exit is 
taken to routine 
ERRORS75, to process 
message DLZ575I and 
DLZ5761. 





SQLDSECT is used to 
handle requests by 
SQL/DS. The storage size 
needed is in SQLDSIZ. If 
an error occurs on the 
GETVIS request, exit is 
taken to routine 
ERRORS78, to process 
message DLZ578I. 


Z wonsas 


HeledO jo poy 


uo! 


681 - 2% 


OUTPUT 


R12 


BASE 
REGISTER 


R2 
DBDDSECT 
R3 


DBDSQLIO 


R4 


SQLDSECT 


CT] 





Routine Label 








Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 2 of 9) 


INPUT = PROCESS 


| pBppsect | 


[> 6. Create the DBD Basic Data record a 
and insert into the 
DBDBASICDATA SQL/DS table. 


DMBACBXT BAL | DBDBASIC 
Rcrnae 


PREFIX 7. If access method is not HDAM or 


C4 HIDAM, go to step 9. 





DLZDLBDP — DL/! Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description 





6. If SQL/DS table entries STORCOMP 
exist for this DBDNAME, 
EXEC SQL DELETEs are 
issued against the 
DBDBASICDATA, 
DBDACCESSDATA, 
DBDSEGMENTDATA, 
DBDLCHILDDATA, and 
DBDFIELDDATA tables 
to delete all entries 
associated with the 
DBDNAME. The new 
DBD Basic Data record is 
inserted. 





OUTPUT 


DBDSQLIO 


ee 


Routine Label 
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Figure 2-33.21 DL/l Documentation Aid Mainline Routine (DLZDLBDP) (Part 3 of 9) Figure 2-33.21 DL/| Documentation Aid Mainline Routine (DLZDLBDP) (Part 4 of 9) 


INPUT PROCESS OUTPUT INPUT m PROCESS OUTPUT 
DBDSQLIO DBDDSECT 
r= 8. Create the DBD Access Data oD 
record for the Primary Index and a | 
insert into the DBDACCESSDATA 
SQL/DS table. 


10. Get address of the segment 
table. 






DBDDSECT 
SEGTAB 
EXTDBD 
FLDTAB 








PREFIX 


PREFIX 


PREFIX . If access method is not equal to C7 
HDAM, HIDAM, or INDEX, go to 
>aaEas “step 15. 


11. Get number of segments for 
current DBD. 


12. If access method is not equal to 
INDEX, to to step 14. 


ii 


SEGTAB 13. Get number of LCHILD entries for 


I this segment. 


DLZDLBDP — DL/I Documentation Aid for DBD Data DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


DOACCESS 
CKACCESS 
















8. The DBD Access Data 
record is created from the 
ACCESS or LCHILD 
macro definitions stored in 
the DL/I DBDGEN 
Control Blocks. It is then 
inserted into the 
DBDACCESSDATA 
SQL/DS table. 
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Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 5 of 9) 


INPUT 


DBDDSECT 


SEGTAB 










EXTDBD 


FLDTAB 


DOBDDSECT 


=m 


PREFIX 


=e 





PROCESS 


> 14. Create the DBD Access Data 


> 15. 


>a 16. 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description 


Routine 


OUTPUT 


DBDSOLIO 


Ld 





records for the Secondary 
Indexes and insert into the 
DBDACCESSDATA SQL/DS table. 


BAL DBDACESS 


Get address of the segment 
table. 


Get number of segments for 
current DBD. 


Label Extended Description Routine Label 





14. The DBD Access Data GOACCESS 

record is created from the 
ACCESS or 
LCHILD/XDFLD macro 
definitions stored in the 
DL/I DBDGEN Control 
Blocks. It is then inserted 
into the 
DBDACCESSDATA 

v) SQL/DS table. 

©Q ‘ DOSEGM 

=a 

° 

i=] 

nd 

= 

© 
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° 
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Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 6 of 9) 


INPUT PROCESS 


|__ PREFIX | 














table. 


TDI «617. + Create the DBD Segment Data 
records and insert them into the 
DBDSEGMENTDATA SQL/DS 


DBDSEGM 


BAL 


PREFIX 18. If access method is not HDAM or 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label 


17. The DBD Segment Data 
records are created from 
the SEGM macro 
definitions stored in the 
DL/I DBDGEN Control 
Blocks. They are then 
inserted into the 
DBDSEGMENTDATA 
SQL/DS table. 





HIDAM, go to step 21. 


Extended Description 





OUTPUT 


DBDSOQLIO 


ees 


Routine 


Label 


Wal J0 Apr0do1g—epejeyy] posuadyy] 


Z OUNJOA ‘JenueW OT SA/SOdI/1G 261-2 





Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 7 of 9) Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 8 of 9) 
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Figure 2-33.21 DL/l Documentation Aid Mainline Routine (DLZDLBDP) (Part 9 of 9) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 1 of 10) 


PROCESS 


1. Initialize base register. 


INPUT 





Save return linkage register. 


Clear host and indicator variable 
area. 


PREFIX . Set IMS compatibility processing. 


J 


Based on access method indicator, 
set DBD name host variable. 


DLZDLBDP ~ DL/! Documentation Aid for DBD Data 


Extended Description 


DBDBASIC DBDBASIC 
NOIMS 


. If an access method . AMETHOD 
indicator is not found, exit 
is taken to routine ERR926 
to process message 
DLZ926I. 











OUTPUT 





R11 





hanes 


DLZDLBLC 


Lo 


Routine 


DBDSQLIO 





Label 





Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 2 of 10) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 3 of 10) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 4 of 10) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 5 of 10) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 6 of 10) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 7 of 10) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 8 of 10) 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 9 of 10) Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 10 of 10) 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 1 of 5) 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 2 of 5) 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 3 of 5) 


INPUT PROCESS OUTPUT 


DBDDSECT Get addressability to the field 


——4 11. 
aa table (FLDTAB). 
FLDTAB 12. If field is a sequence field: 
| | a. Set sequence field host DBDSQLIO 


variable. 
PREFIX b. If access method is HDAM: 
a 1. If duplicate sequence 


FLDTAB 
field: 


pia 


! 


a. Set sequence value 
to ‘DUPLICATE’. 


b. Go to step 15. 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description Routine 





CKFIELD 
NXFIELD 
CKSEQVAL 
SETDUP 





Label 


Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 4 of 5) 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 5 of 5) 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 1 of 9) Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 2 of 9) 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 3 of 9) Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 4 of 9) 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 5 of 9) 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 6 of 9) 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 7 of 9) 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 8 of 9) 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 9 of 9) 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 1 of 12) 


INPUT PROCESS 
1. Initialize base register. 


2. Save return linkage register. 


3. Clear host and indicator variable 
area. 


SEGTAB L______. > 4. Set segment name, segment code, 
and segment level host variables. 
-____. >— 5. If segment is root segment: 


a. Set segment parent name 
indicator variable to null. 


b. Go to step 7. 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description 


DBDSEGM DBDSEGM 


DBDSEGMT 
SETPRNUL 





PU UY 


2 OUTPUT 


R11 


| 


DLZDLBLC 


| 


DBDSQLIO 


E 


" Routine 


Label 











Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 2 of 12) 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 3 of 12) 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 4 of 12) 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 5 of 12) Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 6 of 12) 
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DLZDLBDP — DL/I Documentation Aid for DBD Data DLZDLBDP — DL/i Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description . Routine Label 


- Extended Description Routine Label Extended Description Routine Labe! 
INITNULL 
CMPRTNUL 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 7 of 12) 


INPUT PROCESS 
SEGTAB c. If logical twin pointers 
specified. 


ae 


1. Set logical twin pointer 
host variable. 


2. Go to step 20. 


d. Set logical twin pointer 
indicator variable to null. 


e. Go to step 20. 


19. Set physical and logical twin 
pointer indicator variables to null. 





DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label 








Extended Description 


! 





OUTPUT 


Routine 


DBDSQLIO 


Label 





Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 8 of 12) 


PROCESS 
20. If insert rule specified: 


INPUT 
SEGTAB 


a. Set insert rule host variable. 
b. Go to step 22. 

21. Set insert rule indicator variable 
to null. 

22. If delete rule specified: 
a. Set delete rule host variable. 
b. Go to step 24. 


23. Set delete rule indicator variable 
to null. 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label 





CKINRULE 
CKDELRUL 


Extended Description 


OUTPUT 


Routine 


DBDSQLIO 


Label 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 9 of 12) 


INPUT 
SEGTAB 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description 


Routine 


PROCESS 
—— > 24. If replace rule specified: 


a. Set replace rule host variable. 


25. 


26. 


27. 





b. Go to step 26. 


Set replace rule indicator variable 


to null. 


lf physical insert rules specified: 


a. Set physical insert rule host 


variable. 


b. Go to step 28. 


Set physical rule indicator 


variable to null. 


Label 


CKRPLRUL 


CKPHYIN 


Extended Description 





OUTPUT 


{L 


‘Routine 


DBDSALIO 


Label 











Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 10 of 12) 


INPUT 





SEGTAB 


a 


DBDSORTB 


Ld 


EXTDBD 


Cod 


DBDSORTB 


=a 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


| Extended Description 


al | 





Routine 


PROCESS OUTPUT 


28. 


c. Set source segment DBD 


d. If 2nd source segment name 


if source segment name 
specified: 


a. Set 1st source segment name 
host variable. 


DBDSQLIO 


b. Set IMS compatibility host 
variable to ‘D’. 


name host variable. 
specified: 


1. Set 2nd source segment 
name host variable. 


yy BU 


2. Set IMS compatibility 
host variable to ‘D’. 


Label Extended Description Routine 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 11 of 12) 


INPUT PROCESS 
EXTDBD 3. Set source segment DBD 


Cc] name host variable. 





4. Go to step 30. 


Set source segment, IMS 
compatibility, and source 
segment DBD name indicator 
variables to null. 


Insert DBD Segment Data record 
into the DBDSEGMENTDATA 
SQL/DS table. 


Gem =x«c sais 


If more SEGTAB entries to be 
processed: 


a. Update to next SEGTAB 
entry. 


b. Go to step 3. 





DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description Routine 





SETSINUL 
SEGMDONE 
NEXTSEGM 





OUTPUT 





DBDSQLIO 


SEGTAB 


aa 


Label 





Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 12 of 12) 


INPUT PROCESS 
DLZDLBLC 32. Return to caller (BR R14). 


as 


DLZDLBDP ~— DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description 











OUTPUT 


Routine 


Label 
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Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 1 of 4) 


PROCESS 
1. Initialize base register. 


2. Save return linkage register. 


SEGTAB 3. If no LCHILD entries to be 
processed, go to step 17. 


4. If this segment is a logical child 
definition, go to step 17. 


LCHILD 5. If indexing or indexed LCHILD 


fod entry, go to step 16. 


6. Clear host and indicator variable 
area. 


DLZDLBDP — DL/! Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description Routine 


DBDLCHLD 
DBLCHLD 
DBLCHILD 


OUTPUT 


R11 


DLZDLBLC 


DBDSQLIO 


aes 
aay 


ae 


Label 











Fee 


Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 2 of 4) 


INPUT PROCESS OUTPUT 
SEGTAB ea 7. Set segment name host variable. 
LCHILD Ey 8. Set logical child segment name 2a 
i host variable. 
a> 9. If LCHEDBD is a segment entry: 
DBDSQLIO ae a. Set logical DBD name host ee 
aa punts 
b. Go to step 11. 
LCHILD 10. Set logical DBD name host i 
variable. 
_—_—_ >I 11. Set segment pointer host 
variable. 
DLZDLBDP — DL/I Documentation Aid for DBD Data 
Extended Description Routine Label Extended Description Routine 


LDBEQDBN 
SETSGPTR 





DBDSOLIO 
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Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 3 of 4) 


INPUT PROCESS OUTPUT 
LCHILD 12. If segment is paired: 
SEGTAB a. Set paired segment host a DBDSQLIO 
Co) saa 
b. Go to step 14. 
13. Set paired segment indicator 
variable to null. 
LCHILD 14. Set insert rule host variable. ae 
15. Insert DBD logical relationship 
data record into the 
DBDLCHILDDATA SQL/DS table. 
=> EXEC SQL/DS 
DLZDLBDP — DL/I Documentation Aid for DBD Data 
Extended Description Routine Label Extended Description Routine Label 


CKPAIRSG 

SETPRSEG 

CKRULEIN 
-INLCHILD 








Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 4 of 4) | 


INPUT PROCESS OUTPUT 
16. If more LCHILD entires to be 
processed: 
a. Update to next LCHILD entry. [7 > LCHILD 


b. Go to step 5. 


17. If more SEGTAB entries to be 
processed: 


pate 
oe 


a. Update to next SEGTAB 


b. Go to step 3. 


py 


DLZDLBLC 18. Return to caller (BR R14). 


(Sl 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description ‘Routine 





NXTLCHLD 
UPNXTLC 

NXTLCSEG 
UPNXTSEG 


GODOFLD 





SEGTAB 


are 


oe ae 


Label 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 1 of 5) 


INPUT PROCESS 


1. Initialize base register. 
2. Save return linkage register. 


SEGTAB ___. >— 3. If no FLDTAB entries to be 


food processed, go to step 19. 


4. Clear host and indicator variable 
area. 


SEGTAB >] 5. Set segment name host variable. 
FLDTAB . 6. Set field name host variable. 


dl 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description 


DBDFIELD DBDFIELD 


DBFIELDS 


DBFIELD 





aes 


DLZDLBLC 


aa 


DBDSQLIO 





Routine Label 








Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 2 of 5) 


INPUT 
FLDTAB 


aa 


DLZDLBDP — DL/i Documentation Aid for DBD Data 


Extended Description 


Routine 


PROCESS 


7. 


if field is a sequence field: 


Set sequence field host 
variable. 


If sequence field is unique: 


1. Set sequence type host 
variable to ‘U’. 


2. Go to step 9. 


Set sequence type host 
variable to ‘M’. 


Go to step 9. 


Set sequence field and type 
indicator variables to null. 





Label Extended Description 


yoy yt 


OUTPUT 


Routine 





DBDSQLIO 


Label 


SETSEQM 
NULLSEQ 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 3 of 5) Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 4 of 5) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
FLDTAB ae 9. If this is a system related field, . 14. Set position name indicator DBDSOQLIO 
rr... ] go to step 11. variable to null. 
10. Set field length and starting DBDSQLIO . Set data type host variable, go to 
position host variables, go to step 17. 


step 12. 


Set position name and data type 
indicator variables to null. 


| 


11. Set field length and starting 
position indicator variables to 
null. 

insert DBD field data record into 
DBDFIELDDATA SQL/DS table. 
12. If this is a special field entry, go 


to step 16. ean EXEC SOL/DS 


FLDTAB 3 613. If current and a previous FLDTAB R7 . If more FLDTAB entries to be 
entry starting postions are equal: 4 processed: 
| | Eee a. Set position name host a. Update to next FLDTAB FLDTAB 
variable. entry. ____] 


b. Go to step 15. b. Go to step 4. 


| 





DLZDLBDP -—- DL/! Documentation Aid for DBD Data & DLZDLBDP — DL/i Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





CKSXFLD SETPSNUL 


SXFLDNUL CKDATYPE 


CKSPCFLD NULLSPEC 


CKNXTFLD INFIELD 
NXTFIELD 


UPNXTFLD 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 5 of 5) 


INPUT PROCESS 
R10 19. if more SEGTAB entries to be 


[| ie 


a. Update to next SEGTAB 
entry. 


b. Go to step 3. 


DLZDLBLC 20. Return to caller (BR R14). 


aaa 


DLZDLBDP — DL/!I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description 


NXTFLDSG 
UPFLDSEG 
GOCKDDIR 


Z wonses 





uonesedo jo poy 


LIZ@—-@ 


SEGTAB 


as 





Routine Label 
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Figure 2-33.28 SQL/DS Error Processing Routine (DLZDLBDP) (Part 1 of 2) 


INPUT 


DLZDLBDP — DL/A Documentation Aid for DBD Data 


Extended Description 





Routine 


ERRORS75 


PROCESS 


1. 


Set SQL/DS error processing to 
continue. 


Make SQL/DS code and 
diagnostics printable. 


Issue request to roll back all 
requests. 


Ga EXEC SOL/DS 


Set up pointers for message 
module. 


Go issue message DLZ575I. 


eae DLZLBLMO 
eee | 


Label Extended Description 


ERRORS75 





Routine 





Label 





Figure 2-33.28 SQL/DS Error Processing Routine (DLZDLBDP) (Part 2 of 2) 


INPUT 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description 


Routine 





PROCESS 


6. Set up pointer for message 


module. 


7. Go issue first part of message 
DLZ576l. 


Gaze DLZLBLMO 


8. Set up pointer for message 


module. 


9. Go to ERREXIT routine in 
DLZDLBLO, to issue 2nd part of 
message DLZ576I. 


Label 


Extended Description 


Cs 


OUTPUT 


R1 


Pe 


Routine 





R1 


Label 
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Figure 2-33.29 GETVIS Error Processing Routine (DLZDLBDP) 


INPUT PROCESS 





OUTPUT 


1. Make GETVIS error return code 


printable. 


Issue requests to roll back all 


requests. 


Set up pointer for 
module. 


SQL/DS 


message R1 


Go to ERREXIT routine in 
DLZDLBLO, to issue message 


DLZ578I. 


DLZDLBDP — DL/l Documentation Aid for DBD Data , 


Extended Description Routine Label 


. . 








Extended Description Routine Label 








Figure 2-33.30 Internal Error Processing Routine (DLZDLBDP) 


INPUT PROCESS OUTPUT 
1. Issue request to roll back all 
requests. 
Cem EXEC SQL/DS 
2. Set up pointer for message rate. R1 


3. Go to ERROR9Z26 routine in 
DLZDLBLO, to issue message 
DLZ926l. 


DLZDLBDP — DL/I Documentation Aid for DBD Data 


Extended Description Routine Label Extended Description Routine Label 


| | ail 
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Figure 2-33. 31. 
INPUT 


Ri 


=a 


Message Writer (DLZLBLMO) : 


This routine can be called by 

DLZAUCBO, DLZLBLMO, 

DLZUAMBO, or DLZDPSBO. 
Caller 
Registers 


1. Find matching message ID. 


l 


= 


SG 
2. Move message to output area. 


3. Also move all inserts to message 
if any. 
4. Print message. = 
Caller 
Registers 5. Return. 


ae | 


—— | 


To Caller 


DLZLBLMO — Message Writer CSECT DLZUACBO 


Extended Description Routine Labet Extended Description Routine Label 





4. A subroutine in DLZUACBO 
CSECT is called to do the actual 


printing. 
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Re. 
Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 1 of 4) Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 2 of 4) 
INPUT PROCESS . OUTPUT INPUT PROCESS OUTPUT 
entry point 
1. Save callers registers. [=a SAVEAREA 7. Set up header line. ae HDRLINE 
CL => GETIME Macro [ 
2. Open SYSIPT and SYSLST. SEED comes Mecro 
Sma OPEN Macro 8. Go scan the control cards and 
build the EXTRACT DEFINE 
Commands. 
3. Acquire storage for SOLCA. aie R5 
Laser | 
4. Acquire storage for 1/O area. _ = R6 
9. If not end of file then go to 
=p GETVIS Macro step 8. 
R7 EXWCB 10. If SQL/DS not connected then go 
5. Acquire storage for work control fe ae to step 12. 
=> GETVIS Macro 
R9 
| 6. Acquire storage for SQLDSECT. a= 
Gea ce V's Mecro 
DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 
Extended Description Routine Label Extended Description Routine Labe! 
Extended Description Routine Label Extended Description Routine Label 


DLZEXDFP 
DLZEXDFP 


PEZESDEr SCANLOOP 
. SYSIPT — ISYSIN, AROUNDID 


SYSLST — PRINTER. This is the return point ERRET 


for errors. 


. For all GETVISs, if fail GETSTORI1 
print DLZ5781 message, 
purge all remaining cards, 
set exit flag and go to 
step 9. 


. SQL/DS is connected if CARDEOF 
CONNSQL is set in 
INITFLGS. 


GETSTOR2 
GETSTOR3 
GETSTOR4 
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Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 3 of 4) Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 4 of 4) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
11. Release SQL/DS. 15. If SOQLDSECT storage not there 


then go to step 16 else free 
em &<c 5010s [aan SQLDSECT storage. 





R5 |__. > 12. If SQLCA storage not there go to Gaz FREEVIS Macro 
___] step 16 else free SQLCA storage. 
ea FREEVIS Macro . Close SYSIPT and SYSLST. 
R6 > 13. If I/O area storage not there go SAVEAREA . Restore caller’s registers. 


to step 16 else free I/O area 
[ne storage. | 
. End of job. 
em revs macro 
R7 | ____. > 14. If work control block area not 
there go to step 16 else free 
(Roe sl work control block area. 


See crcevis macro 


Emp Return to 


Caller 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label Extended Description Routine Label 


Extended Description Routine Label Extended Description Routine 
DLZEXDFP : 
DLZEXDFP | 
15. FREE3 
. For all FREEVISs, if fail FREESTOR 
print DLZ578] message 16. ENDJOB 
and to to ENDJOB. 


vy 
| 


A, 








Label 
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Figure 2-34.1 EXTRACT DEFINES Utility — SCNCARDS Routine (DLZEXDFP) (Part 1 of 2) Figure 2-34.1 EXTRACT DEFINES Utility — SCNCARDS Routine (DLZEXDFP) (Part 2 of 2) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Figure 2-34 5. Go build define commands. 


Gap PCBDEF 












1. Initialize variables and flags. — Bae T 2aa2 | 
SYSIPT -——"S] 2. Scan a set of EXTRACT control ail EXINOUT 6. Commit SQL/DS work. 
cards. lf EOF, go to step 10 in 
figure 2-34. | Game exec sais 
EXWCB > «3. siIf all required parameters were not [7 SYSLST : 
on control card print message 7. Print message DLZ500I. SYSLST 
DLZ502I and go to step 9 in 
figure 2-34. : : 
8. Return to DLZEXDF main routine. 
4. CONNECT to SQL/DS. 
=> EXEC SQL/DS 
| 
| 
DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 
Extended Description Routine Label Extended Description Routine. Label Extended Description Routine Label Extended Description Routine Label 
SCNCARDS SCNCARDS 
. Define lines in I/O area are SCNCARDS CNCTDONE 
cleared to blanks. 
. All Control cards are SCNCARDS 
printed to SYSLST after PROPSBNM 
they are read. Message PROPCBNM 
DLZ505I is used to print PRODLIPR 
72) syntax error message. PROREP 
@ PROUSRID 
o GETWORD 
o CDELIMIT 
=} BUMPCP. 
~ GETCARD 
xa PRTMSG 
= . Required parameters are SCNCARDS TESTPRMS 
o PSBNAME, PCBNAME, 
> USERID and DLIPROC. 
a. . If CONNECT fails print CNCTSQL 
ro) message DLZ577I and 
ms DLZ5761. 
a=] 
@ 
“ 
) 
a. 
co) 
=| 
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Figure 2-34.2 EXTRACT DEFINES Utility — PCBDEF Routine (DLZEXDFP) (Part 1 of 3) 


INPUT PROCESS 


From Figure 2-34.1 . 






1. Clear PCB processing flags. 


EXINOUT 2. See if ROUTINE already exists for 
PCBNAME. If not there go to 
step 5. 
a> EXEC SQL/DS 
EXWCB 3. If REPLACE not specified on 
control card, print message 
DLZ5011 and go to step 9 in 
figure 2-34. 
EXINOUT 4. DELETE from ROUTINE table the 


routine for PCBNAME. 


Ge x«c sors 


5. Set sequence number to zero. 


PCBNAME 


DLZEXDFP — Create ISOL routine of EXTRACT DEFINE commands 


Extended Description Routine Label 


PCBDEF 


. Whenever SQLERROR is PCBDEF 
set to go to ERRORSQL 
routine. 
YESREP 


PCBDEF1 





Extended Description 


OUTPUT 


EXWCB 


PCBFLAGS 


EXINOUT 


PCBNAME 


| 


SYSLST 


| 


ROUTINE 
SQL/DS 
table 


EXINOUT 


Routine Label 








Figure 2-34.2 EXTRACT DEFINES Utility — PCBDEF Routine (DLZEXDFP) (Part 2 of 3) 


INPUT PROCESS 
EXINOUT 


PSBNAME 


6. Get Processing Option and DBD 
name for this PCB. 


eee EXEC SQL/DS 


If Processing Option is L or LS 
print message DLZ503I and go to 
step 9 in figure 2-34. 


EXINOUT 


PROCOPT 


EXINOUT 


DBDNAME 


Get Access method for DBD. 


rai EXEC SQL/DS 


lf Access method is Logical set 
flag. 


~ 


EXINOUT 


09 ~ 


aa 
° 


EXINOUT Insert DEFINE PCB command into 


ROUTINE table. 


ae EXEC SQL/DS 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label 


INSRTPCB 


Extended Description 


| 


OUTPUT 


EXINOUT 


PROCOPT 


SYSLST 


EXINOUT 


EXWCB 


PCBFLAGS 


ROUTINE 
SQL/DS 
table 


aes 


Routine Label 
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Figure 2-34.2 EXTRACT DEFINES Utility — PCBDEF Routine (DLZEXDFP) (Part 3 of 3) 


INPUT PROCESS OUTPUT 
EXINOUT | _____ >§ 12. Print DEFINE PCB command. aay SYSLST 


DEFPCB Ey 


13. Go build DEFINE SEGMENT and 
FIELD commands. 


BALRY |_SEGDEFS 
Figure 2-34.3 


14. Return to SCNCARDS routine. 


a Figure 


2-34.1 
step 7 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label Extended Description Routine Label 


PCBDEF 


12. Double space or single PRTPDEF 
space carriage control 
character is determined. 


Z wonsss 


yesodQ jo pope 





UOor 


S%Z—-Z 
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Figure 2-34.3 EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 1 of 9) 


INPUT 


EXINOUT 


PCBNAME 


yy 


EXINOUT 


PSBNAME 


EXINOUT 


EXINOUT 


PARIND 


PROCESS 
From Figure 2-34.2 


== 
2 


Set segment number to one. 


Move PCBNAME to DEFINE 
SEGMENT command line. 


Get segment name and parent 
name from PSB. 


aap EXEC SQL/DS 


If not found, go to step 44. 
Increment segment number. 


If parent is null, move ‘0’ to 
DEFINE SEGMENT command line. 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


. Extended Description 


1. 
3. 


6. Null is indicated if 
PARIND is less than 0. 





Routine 


SEGDEFS 





Label Extended Description 


SEGDEFS 
SEGDEFS1 


OUTPUT 


EXINOUT 


EXINOUT 


EXINOUT 


PARENT 


EXINOUT 


EXINOUT 


PARENT 


~ Routine Label 





Figure 2-34.3 EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 2 of 9) 


INPUT PROCESS 
EXINOUT 7. If access is not ‘LOGICAL’ go to 
sae 


Get physical DBD name, physical 
segment name, destination 
parent DBD name, and 
destination parent segment name 
from Logical DBD. 


Ga “Ec saris 


9. If this segment is not a 
concatenated segment go to 
step 21. 


EXINOUT 


DBDNAME 


yo 


EXINOUT 


DPDBDIND 


10. Indicate that this is a 
concatenated segment. 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description 


7. 
9. 





Routine Label Extended Description 


SEGDEFS 
SEGDEFS2 


If DPDBDIND is less 
than 0, this indicates that 
DPDBDNAM was null. 


. CONCAT bit is set in 


SEGFLAGS. 


Routine 


OUTPUT 


EXINOUT 


PDBDNAME 
DPDBDNAM 
DPSEGNAM 






EXWCB 





Label 
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. Information is selected 





. Segment is a VLC if 


. Does LPSEGNAM = 





INPUT 


EXINOUT 


PDBDNAME 


EXINOUT 


PHYSPTR 


a 


EXINOUT 


PDBDNAME 


EXINOUT 


LPDBDNAM 


Extended Description Routine 


‘SEGDEFS 
BIDIR 





into PPARENT, 
LPSEGNAM, 
LPDBDNAM, 
PHYSPTR, LCDBDNAM 
and LCSEGNAM. 










PHYSPTR = ‘PAIRED’. 
VLC is set in 
SEGFLAGS: 
LCDBDNAM and 
LCSEGNAM are null. 















DPSEGNAM and 
LPDBDNAM = 
DPDBDNAM? 









PROCESS 


11. Get physical parent, pointer, 
logical child DBD and segment 
name and logical parent DBD and 
segment name. 


Qa exec saps 


12. If segment a virtual logical child 
segment, set flag and go to 
step 21. 


13. Get logical child DBD name and 
logical child segment name. 


14. If destination parent is the logical 
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Figure 2-34.3. EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 3 of 9) 
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Figure 2-34.3 EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 4 of 9) 
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Figure 2-34.3_ EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 5 of 9) 
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Figure 2-34.3 EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 6 of 9) 
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Figure 2-34.3. EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 7 of 9) 
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Figure 2-34.3 EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 8 of 9) 
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Figure 2-34.3 EXTRACT DEFINES Utility — SEGDEFS Routine (DLZEXDFP) (Part 9 of 9) 
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Figure 2-34.4 EXTRACT DEFINES Utility — CSEGBYTS Routine (DLZEXDFP) (Part 1 of 4) 
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Figure 2-34.4 EXTRACT DEFINES Utility — CSEGBYTS Routine (DLZEXDFP) (Part 3 of 4) 


INPUT PROCESS 1 OUTPUT 


EXINOUT ———. >4 11. Get bytes from field in logical EXINOUT 
parent concatenated key. 
: 
See exec saws 
12. If field not found, go to step 14. 
-__. >—_ 13. Add field bytes to logical parent 
x 


EXINOUT 


EXINOUT 
concatenated key length. 


BYTES . 


yy 


EXINOUT 14. Get parent name for this EXINOUT 


segment. 
PDBDNAME TEMPSEG 
TEMPSEG aay EXEC SQL/DS 


EXINOUT 


15. If parent is not null, go to 
TEMPSIND step 11. 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label Extended Description Routine Label 





CSEGBYTS 


. Field is not found if 
SQLCODE = 100. 


CSEGBYT2 


. Parent is null if indicator 
variable (TEMPSIND) is 
less than 0. 











4 


Figure 2-34.4 EXTRACT DEFINES Utility — CSEGBYTS Routine (DLZEXDFP) (Part 4 of 4) 
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Figure 2-34.5 EXTRACT DEFINES Utility — FLSBYTES Routine (DLZEXDFP) (Part 1 of 4) Figure 2-34.5 EXTRACT DEFINES Utility — FLSBYTES Routine (DLZEXDFP) (Part 2 of 4) 
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Figure 2-34.6 EXTRACT DEFINES Utility — FLDDEFS Routine (DLZEXDFP) (Part 1 of 6) 
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Figure 2-34.6 EXTRACT DEFINES Utility — FLDDEFS Routine (DLZEXDFP) (Part 2 of 6) 
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Figure 2-34.6 EXTRACT DEFINES Utility — FLDDEFS Routine (DLZEXDFP) (Part 3 of 6) 
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DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


FLDDEFS 
DEFLC 
FLDRET 





FLDDEFS 


18. FLDCONCT 





19. Segment is VLC if VLC 


. On FREEVIS failure, 
bit is set in SEGFLAGS. 


message DLZ578I is 
printed, EXIT flag is set, 
SQL ROLLBACK WORK 
is performed and branch 
is taken to step 9 of 
figure 2-34. 









Figure 2-34.6 EXTRACT DEFINES Utility — FLDDEFS Routine (DLZEXDFP) (Part 5 of 6) Figure 2-34.6 EXTRACT DEFINES Utility — FLDDEFS Routine (DLZEXDFP) (Part 6 of 6) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
18. Go build DEFINE FIELD 21. Go build DEFINE FIELD 
commands for concatenated key commands for logical child fields. 
fields. 
. Go build DEFINE FIELD 
EXWCB 4 19. If segment is not a virtual logical commands for logical child fields. 
child segment, go to step 21. 
20. Go build DEFINE FIELD ia 
commands for virtual logical child pwerbini 
fields. 
. Free CKFTAB storage. 
: 
. Return to SEGDEFS. 
tam Figure 
2-34.3 
step 28 





WAI J0 Ayisdoig—epiejse\] posaeor] 


Z sUINjJOA ‘Jenuep] s1d0'T SA/SOd I/1d 








8EZ—-Z 


Figure 2-34.7 EXTRACT DEFINES Utility — FINDFLD Routine (DLZEXDFP) (Part 1 of 3) 
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Figure 2-34.7 EXTRACT DEFINES Utility — FINDFLD Routine (DLZEXDFP) (Part 2 of 3) 
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Figure 2-34.7 EXTRACT DEFINES Utility — FINDFLD Routine (DLZEXDFP) (Part 3 of 3) 
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Figure 2-34.8 EXTRACT DEFINES Utility — CKDEFS Routine (DLZEXDFP) (Part 1 of 4) Figure 2-34.8 EXTRACT DEFINES Utility — CKDEFS Routine (DLZEXDFP) (Part 2 of 4) 
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Figure 2-34.8 EXTRACT DEFINES Utility — CKDEFS Routine (DLZEXDFP) (Part 3 of 4) 
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EXINOUT 


NEXTPOS 
FIELDBYT 


CKFTAB 


Ld 


EXINOUT 


set warning flag. 


yy Yt 


14. Get the starting position of field. 


15. If this field is a duplicate field, 


16. If field name does not begin with 


an alphabetic character, set 
warning flag. 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label 


CKDLOOP3 


. FIELDSTR = NEXTPOS 
NEXTPOS = NEXTPOS 
+ FIELDBYT 


. WARNING? bit is set in 
EFLAGS. 


TESTALPH 


Extended Description 


. 
eal 
aa 


OUTPUT 


EXINOUT 


| 


EXINOUT 


FIELDSTR 


EXWCB 


EXWCB 


Routine Label 








Figure 2-34.8 EXTRACT DEFINES Utility — CKDEFS Routine (DLZEXDFP) (Part 4 of 4) 


INPUT PROCESS 


17. Go insert DEFINE FIELD 
command in ROUTINE table. 


=> 


BALR 


Figure 2-34.12 


EXWCB __. >§ 18. Increment COUNTER. 


COUNTER 


19. Point to next table entry and go 


to step 12. 


20. Return to FLDDE 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label 


CKDEFS 
17. CKDEFS4 
20. CKDEFRET 





FS. 


Extended Description 


Figure 
2-34.6 
step 20 


OUTPUT 


Routine 





EXWCB 


Label 
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Figure 2-34.9 EXTRACT DEFINES Utility — VLCDEFS Routine (DLZEXDFP) (Part 1 of 2) Figure 2-34.9 EXTRACT DEFINES Utility — VLCDEFS Routine (DLZEXDFP) (Part 2 of 2) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Figure 2-34.6 7. Go insert DEFINE FIELD 
command in ROUTINE table. 
1. Open DBDVLCFIELDPTR. = 
a> EXEC SQL/DS 
8. Go to step 2. 
EXINOUT > 2. Get field information for next field mame EXINOUT 
of virtual logical child segment. 
CL ae 9. Close DBDVLCFIELDPTR. 
Ga x«c saros 
10. Return to SEGDEFS Routine. 
3. If field not found, go to step 9. 
EXINOUT ____. > 4. If field name starts with a ‘/’, go 
to step 2. aca Figure 
2-34.6 
step 22 
> 5. If field name does not begin with > EXWCB 
an alphabetic character, set 
warning flag. 
CKFTAB i 4 6. If field name is in concatenated aa EXWCB 
field name table, set warning flag. 
DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


VLCDEFS VLCDEFS 


VLCDEFS3 


. This pointer is used to VLCDEFS 
select virtual logical child 
field data so that one row 
is returned at a time. 


VLCDFRET 


. Information is selected by VLCLOOP!1 
PDBDNAME and 

PSEGNAME into 

FLDNAME, SEQFLD, 

FLDTYPE, FIELDSTR, 


and FIELDBYT. 


. /SX and /CK fields are not 
defined. : 


. WARNING2 bit is set in 
EFLAGS. 


VLCDEFS1! 
VLCLOOP2 
VLCDEFS2 
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Figure 2-34.10 EXTRACT DEFINES Utility — LCDEFS Routine (DLZEXDFP) (Part 1 of 3) Figure 2-34.10 EXTRACT DEFINES Utility — LCDEFS Routine (DLZEXDFP) (Part 2 of 3) 


INPUT ss PROCESS OUTPUT INPUT PROCESS OUTPUT 
From Figure 2-34.6 EXWCB 7. If segment is not a virtual logical 
; child, go to step 12. 
1. Open DBDLCFIELDPTR. EXINOUT 8. See if field name has already EXINOUT 


been defined for a virtual logical 
child field. 


Gee «ec sais 


9. If found field, set warning flag. 


Gam EXEC SQL/DS PDBDNAME 
eee |__FLONAME | 


2. Get field information for next field a 
of virtual logical child segment. Cd 
Gam exec savvs 
3. If field not found, go to step 14. 
. lf field name starts with a ‘/’, go = 
to step 2. EXINOUT 
& 
fs pa 


EXINOUT 


ae 


EXWCB 


EXINOUT 
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yy | 
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11. Adjust field start. 


[TT 1 


EXINOUT 
FLDNAME 
5. If field name does not begin with EXWCB 
an alphabetic character, set 
warning flag. 
CKFTAB 6. If field name is in concatenated EXWCB 


field name table, set warning flag 
and go to step 11. 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands. DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description - Routine Label! 





LCDEFS LCDEFS 
. This pointer is used to LCDEFS 
select logical child field 
data so that one row is 
returned at a time. 


7. Segment is a VLC if LCDEFS3 
VLC bit is set in 
SEGFLAGS. 


. FIELDSTR = LCDEFS4 
FIELDSTR — LPCKLEN 


. Information is selected by LCDLOOPi 
LCDBDNAM and 
LCSEGNAM into 
FLDNAME, SEQFLD, 

FLDTYPE, FIELDSTR, 
and FIELDBYT. 


+ DPCKLEN. 


. /SX and /CK fields are not 
defined. 


. WARNING? bit is set in 
EFLAGS. 


LCDEFS1 
LCDLOOP2 
LCDEFS2 








vot -—Z 


Z SUMNJOA ‘fenuep] s1d0'T SA /SOC I/1d 


Figure 2-34.10 EXTRACT DEFINES Utility — LCDEFS Routine (DLZEXDFP) (Part 3 of 3) 


INPUT 





PROCESS OUTPUT 


12. Go insert DEFINE FIELD 
command in ROUTINE table. 


BALR INSRTFLD 
Figure 2-34.12 


13. Go to step 2. 
14. Close DBDLCFIELDPTR. 


15. Return to SEGDEFS Routine. 


ee ee 


2-34.6 
step 23 


DLZEXDFP — Create iSQL routine of EXTRACT DEFINE commands 


Extended Description 








Label Extended Description Routine Label 


VLCDEFS3 
LCDFRET 
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Figure 2-34.11 EXTRACT DEFINES Utility — DPDEFS Routine (DLZEXDFP) (Part 1 of 3) 
INPUT PROCESS OUTPUT 
From Figure 2-34.6 


1. Open DBDDPFIELDPTR. 
Se &x«c sais 


EXINOUT => 2. Get field information for next field ff EXINOUT 


of destination parent segment. Cc] 
Gam exec sauns 


3. If field not found, go to step 16. 


! 


EXINOUT 4. If field name starts with a ‘/’, go 


a 
to step 2. 
FLDNAME 
| noe | 7 5. If field name does not begin with EXWCB 
an alphabetic character, set 


warning flag. 


CKFTAB 6. If field name is in concatenated laa EXWCB 


field name table, set warning flag 


and go to step 12. 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label Extended Description Routine Label 


DPDEFS 


. This pointer is used to DPDEFS 
select destination parent 
field data so that one row 
is returned at a time. 


. Information is selected by DPDLOOP1 
DPDBDNAM and 
DPSEGNAM into 
FLDNAME, SEQFLD, 
FLDTYPE, FIELDSTR, 
and FIELDBYT. 


. /SX and /CK fields are not 
defined. 


. WARNING2 bit is set in 
EFLAGS. 


DPDEFSi 
DPDLOOP2 
DPDEFS2 











Figure 2-34.11 EXTRACT DEFINES Utility — DPDEFS Routine (DLZEXDFP) (Part 2 of 3) 
INPUT: PROCESS OUTPUT 


EXWCB __27.—s«dIf segment is not a virtual logical 


child, go to step 10. 


EXINOUT a6 o8._—s« See if field name has already EXINOUT 
been defined for a virtual logical 
child field. 


Gay EXEC SQL/DS 


9. If found field, set warning flag 


EXWCB 
and go to step 12. dl 
EXINOUT Le 10. =See if field name has already EXINOUT 


been defined for a logical child 


DPDBDNAM field. 
Ga EXEC SOL/DS 


11. If found field, set warning flag 


and go to step 12. 


FLONAME 





EXWCB 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Labe! Extended Description Routine Label 


DPDEFS 
7. Segment is a VLC if DPDEFS3 
VLC bit is set in 
SEGFLAGS. 


CPDEFS4 
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Figure 2-34.11 EXTRACT DEFINES Utility — DPDEFS Routine (DLZEXDFP) (Part 3 of 3) 
INPUT PROCESS OUTPUT 


EXWCB 12. Adjust field start. 3 EXINOUT 


13. Go insert DEFINE FIELD 
EXINOUT command in ROUTINE table. 


FIELDSTR 
Grey BALR INSRTFLD 
Figure 2-34.12 


14. Go to step 2. 


15. Close DBDPFIELDPTR. 
| See “Ec saris 


16. Return to SEGDEFS. 


Ramp, 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label Extended Description Routine Label 


DPDEFS 


12. FIELDSTR = DPDEFSS5S 
FIELDSTR + 
LCBTYES. 


DPDEFRET 
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Figure 2-34.12 EXTRACT DEFINES Utility — INSRTFLD Routine (DLZEXDFP) (Part 1 of 2) 


INPUT 


EXINOUT 


EXINOUT 


FIELDSTR 
FIELDBYT 


EXINOUT 


EXINOUT 


td 


PROCESS 


OUTPUT 


If this field is a sequence field, 
move ‘SEQ’ to command line. 
Otherwise move ‘NOSEQ’. 


EXINOUT 


FLDSEQ 


Make start and bytes printable. EXINOUT 


FLDSTART 
FLDBYTES 


EXINOUT 


Increment sequence number. 


Print DEFINE FIELD command line. 


BAL PRTMSG 


Insert DEFINE FIELD command into 
ROUTINE table. 


ROUTINE 
SQL/DS table 


aaa 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine 


| INSRTFLD 
| 


2. 


4. Single or double spaced 
carriage control character 
is determined. 
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Label Extended Description Routine Label 


INSRTFLD 
NOSEQ 


CONVSTRT 


NOFDOUB 
PRTFDEF 











Figure 2-34.12 EXTRACT DEFINES Utility — INSRTFLD Routine (DLZEXDFP) (Part 2 of 2) 


INPUT PROCESS 
EXWCB PDE «G6. «Print warning messages if 
specified. 


7. Return to caller. 


DLZEXDFP — Create ISQL routine of EXTRACT DEFINE commands 


Extended Description Routine Label 


INSRTFLD 


6. DLZS041 if WARNING] 
set, DLZS06I if 
WARNING? set. 


Extended Description 


es ea 





OUTPUT 


Routine 


SYSLST 


Label 
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Figure 2-35. Prereorganization Utility (DLZURPRO) (Part 1 of 4 


Figure 2-35. Prereorganization Utility (DLZURPRO) (Part 2 of 4) 


INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 

From 

Batch 

Pears 234) DLZUCDSO 7. Continue to next step for each 

data base referred to in control ae 
list entry. 
° Address 
Caller Contro! List At end of entries, go to Step 15. 


Ri 


Address 


= 


SYSIPT 





DBIL=dbdname or 
DBR=dbdname 


DMBNAME 


DLZURPRO — Prereorganization CSECT 


1. Save contents of R1 in PSTADDR. 


2. Open printer and reader and 
establish PST and SCD 
addressability. 


a= OPEN Macro 


GETIME Macro 


l 


3. Read control cards and 
validate content. At end of 
file go to Step 7. 


GEE GET Macro 


4. Convert the dbdname to a 
dmbname. 


5. Acquire list space if required 
and enter DMB in control list. 


(=m) GETVIS Macro 


6. Return to Step 3 to process the 
next operand or control card. 


PSTADDR Registers 


PSTADDR PST 
PSTPSB 


DLZBLKLS 


BLDB 
Address 





[> 8. Load utility PSB. 


DLZBLKLD Macro 
ASMTDLI 





BLDL Function for 
PDIR Utility PSB 


9. Find the PCB representing this 


PCB 
DBPCBDBD j4,PSB data base. 
PSBLIST 
DBPCBJCB 


OBDNAME 


Ed 


DMBNAME 


SDB 


JCBSDB1 SDBPSDB 
JCBSDBND | |SDBLEN se 
JCBORGN ae and continue for each found. 


At end, return to Step 7. 


DMBLST 


10. Scan all segments in data base 
for logical relationships (LR) 


DLZUCDSO 
LEFPTR 
LENAME 
LECRNO 
LELEN 
LEFLG1 
Contro! List 





DLZURPRO — Prereorganization Utility 


DLZURPRO Extended Description Routine Label Extended Description 





DL/I Blocks 
‘and Buffers 


- 


PRMPCBAD 


DLZURPRO 


Routine 


Label 


Extended Description Routine Label 


Extended Description Routine 


7. Write message DLZ964I for no DBIL {[DLZURPRO |SCAN 
or DBR control cards. 


1. Module identifier (DLZURPROvrnp) 5. Control list entries contain DMB 





is defined here. 


This utility executes as ‘ULU’ under 
DL/E control. No blocks or buffers 


have been loaded yet. Only the nucleus 


exists. Batch initialization passes the 
PST address to the logical relationship 
utilities rather than a PCB address. 


. Control card contains identifier as 
DBIL= (initial load), DBR= 
(reorganize), OPTIONS=, and 
dbdnames. In case of an input control 
card format error, message DLZ9541 
is printed and job terminates. 








names of data base and user options 
specified in control cards. 


Macro DLZUCDSO contains the 
DSECT defining the format of a 
control list entry. 


Write message DLZ963]I if an entry 
already exists for a dmbname. 


Write message DLZ965] if the number 
of control list entries exceeds the 
maximum of 20. 


Write message DLZ3911 if GETVIS 
fails. 











Write message DLZ976l if the 
dbdname specified is an index DBD. 


. The DLZBLKLD macro moves the 


dmbname to PST at PSTPCPSB and 
sets utility suffix ‘U’ and calls DL/I 
with the BLDB call function. 


Write message DLZ956I for a data 
base control block build failure or 
if there is no PCB. 


R1 is returned with the address of the 
PSBLIST. 


. If a LP/LC exists for a segment, 


continue to the next step to look at 
the secondary list entries for the 
segment. After each SDB with a LR 
has been processed return to Step 7 
to process the next data base control 
list entry. 
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Figure 2-35. Prereorganization Utility (DLZURPRO) (Part 3 of 4) 


INPUT 


$s 


SEC 


DMBSCDE DDIRADDR 


DMBSECDB 


DMBSECSC ] | DMBLENTB 


PSDB 
DMBLST 


SOB 


SDBDDIR 


E 
DM 


SCDE 
BSECLN 





Z WOT}90¢ 


We1adQ jo poy 


uol 


67e—7 





DLZUCDSO 


LENAME 
LESLPTR 


LEFLG1 
LEPSDBSG 


Control List 





= t- 


Control 
Data Set 
(SYS01 2) 


DLZURPRO — Prereorganization Utility 


Extended Description 


the dbdname' in the SEC to the 
dbdname in the SDB. 


Each SEC for the segment is examined 
to see if it is a LP or LC entry. 


Write message DLZ965I if a SEC is 
not found with a matching dbdname. 


. Write message DLZ985I for a limit 


check failure. 


. Segment entries contain segment 
names involved in logical relationships 
(LR). 


Secondary list entries contain DMB 
names which refer to logically 
related data bases. 


As control data set list entries are built, 
each record is calculated to determine a 
maximum record length. The largest size 
is saved and put into field LESRTSZE 
when the control data set is written 
(Step 17). 





PROCESS OUTPUT 


11. Scan all SEC entries for logical 
parent (LP) or logical child 
(LC) entry and continue for each 
found. At end, return to Step 10. 


12. Find the PSDB and then the SEC 
entry of the referenced segment 
that points to this segment in 
order to find the LC’s LP or 
the LP’s LC. 


DLZUCDSO 


the segment and a secondary Control List 


list entry. Return to Step 11. 


15. Print and punch DBS cards if 
requested by OPTIONS. 


SYSLST = SYSPCH 


16. Determine device type and open 
the control data set. 


= DLZDVCE Macro 
===) OPEN Macro 


DLZURPRO 


Routine Label Extended Description Routine 


15. DBS indicates data base must be 
scanned using SCAN utility 
(DLZURGSO). 


Write message DLZ962I to list 
segments scanned. 


. Write message DLZ984I if there is an 
invalid device assignment for 
SYS012. 








Figure 2-35. Prereorganization Utility (DLZURPRO) (Part 4 of 4) 
INPUT PROCESS 


LSTHD 







DLZUCDSO 


Data Base 
List Entries 
Segment List 
Entries 
Secondary 
List Entries 


Control List 


17. Write Control list to control 
data set. 





@as) PUT Macro 


18. Close control data set, printer, 
reader, and punch. 


dxsh CLOSE Macro 


13. Build a data base list entry = - 
for the found LP or LC if it 
exists in a data base not on the Call 
DBIL= or DBR= card. ee 19. Return. 
= 
Entries 
14. Build a segment list entry for 


DLZURPRO — Prereorganization Utility 


Extended Description Routine Label 





Label 
17. 


18. Write message DLZ966lI for a 
normal termination. 


19. 





Extended Descri 








OUTPUT 
Control 
Data Set 
(SYSO12) 
To 
Batch 
Initialization 
(Figure 2-3.4) 
DLZURPRO 


Routine Label 
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Figure 2-36. DB SCAN (DLZURGSO) (Part 1 of 8) Figure 2-36. DB SCAN (DLZURGSO) (Part 2 of 8) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


From 
Figure : 
DLZUCDSO — a. For DBS=, set up list entry scan. DLZUCDSO 


2-3.4 nt 
. F RT= 
LerLat b. For RSTRT=, set up to perform RSTRTVC RSTRTN 


Ri PST 





. oye Call 
a _ > 1. Establish addressability and [ Registers Pers! restart. 
open the printer, reader, and AOSeHO Control 
console. DataSet 
| | eshte c. For CHKPT=, set up to perform CHKPTING 
AFINDDTF 4, 2. Open Control Data 


DLZDSEHO 


Check ASSGN and 
fill OTF. 


f 





BALR 






Control 
Data Set 


checkpoint. . C_] 
6. Open work data set. _ AWORKFIL 


AOPENWRK ; 


eae 


CDSHD DBNAMEFC WORKFIL 





OPEN Macro 


I 


(ama IDLzDseHO 
BALR {Open WORKFIL 


7. If not restarting, go to step 14. 





3. Read all control records. 


Control Data Set 


GET Macro 


Control 


Data Set GETVIS Macro 


U1! 


AFINDDTF 8. Open Restart file. 


CLOSE Macro RESTART eae 


(optional) 


ad 


4. Close control data se 






DLZDSEHO 
P Check ASSGN 
5. Read input control cards. nd fill DTF 


GET Macro 
—= OPEN Macro 





I 


BALR 








Scan Input Cards 











utility executes as ‘ULU’ under DL/I 
control. No blocks or buffers have 
been loaded yet. Only the nucleus 
exists. Batch Initialization passes the 
PST address to the logical relationship 
utilities rather than a PCB address. 
The DLZDSEHO prefix contains 
addresses to routines within 
DLZDSEHO. The routines are used 
by this utility. The addresses are 
moved to a constant area beginning 
at ADSEHO. 


. The ‘FINDDTF’ subroutine of 
DLZDSEHO is used to check that 
SYS012 is properly assigned to a disk 
and to fill the correct device type 
in DTF. 


Write DLZ9841 if the control file is 
not assigned to a disk. 


. The Control Data Set is moved from 
the 1/O area to storage acquired by 
GETVIS for further processing. 








Write DLZ3911 for a GETVIS 
failure. 


Write DLZ957I1 for no control data 
set or, if the ID is not ‘CONTROL 
DATA SET’. 


CDSEOFB 


. Input on ‘DBS=’ card is used to NXTCR 


modify Control Data Set in core. 
‘RSTRT=’ and/or ‘CHKPT=’ specify 
checkpoint/restart capabilities. 
‘ABEND’ card used for testing. 


Write DLZ954I for a control card 
format error. 











6. Write DLZ984I for unknown or ignored 
device type. 


. Restart records are copied from the 
previous WORKFIL until the specified 
checkpoint record is found. An SSA 
is set to do qualified GU on last 
segment to reestablish position. 











(Optional) 7 . 
——— 9. Copy records to output file (including 
checkpoint records) until the check- 
point record to restart from is found. 
RESTART aes 
(optional) 
CHPT Record Ga 
GET Macro 
DLZURGSO — DB SCAN CSECT DLZURGSO 
Extended Description Routine Label Extended Description Routine Label ental: 
DLZURGSO — DB SCAN CSECT . 
1. Module identifier is defined here. This |DLZURGSO |DLZURGSO 3. (con’t) DLZURGSO 
Extended Description Routine Extended Description Routine Label 
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Figure 2-36. DB SCAN (DLZURGSO) (Part 3 of 8) 
INPUT PROCESS 


CKPT Record 


a2 


CKPT Cont 
Record 


(optional) 







DLZUCD50 


Control 
Data Set 





DBNAMEFC 


CURDBPTR 


| DLZURGSO — DB SCAN CSECT 


10. The SSA built is a qualified key 
call — ‘segname*C (key) to be used 
in the call at step 21. 





. A continuation checkpoint record 
contains the key value which is 
moved to the SSA for a qualified 


key call. 
72) 
@ 
s. . Write DLZ975I Restart complete. 
iS . Write DLZ966I for normal program 
Nw termination if there are no more 
ee DB list entries to process. 
pq 
i" 
© 
Q 
2) 
mh 
oO 
uo] 
S 
= 
Q 
=} 


TSt-@ 


|| 11. 
| | 12. 


13. 


——y,yp 14. 


Extended Description Routine Label 





10. Get ready to position the data 


base to the segment identified 
in the requested checkpoint 
record. 


Copy the checkpoint continua- 
tion record to the work file. 


GET Macro 


= PUT Macro 


Locate the data base list entry 
and segment list entry in the 
Control Data Set to restart 
processing from. 


Close Restart file. 


(<= CLOSE Macro 


Get a data base list entry and 
continue to step 15 for each 
one found. 

After all list entries have 

been processed, go to step 34. 


Extended Description 





OUTPUT 


SSA 


CHKORGS 


CURDBPTR 


DLZURGSO 


Routine 


WORKFIL 


DBNAMEFC 








Label 








Figure 2-36. DB SCAN (DLZURGSO) (Part 4 of 8) 















INPUT PROCESS OUTPUT 
DLzZUCDsSO. —-—— 15. Determine if this data base is 
to be scanned. Return to step 
14 if not. 
c=) DLZBLKLD Macro 
‘[asmTbu id DL/I Blocks 
DLZBLKLS ES ESMIDE! and Buffers 
BLDB function 
DOS CIL 
PDBN > 17. Find the PCB representing this PRMPCBAD 


PST 
(estess Jd 
PDIR 


PCB 
PDIRADDR DBPCBDBD 


PSB 
PSBDBOFF 
PSBLIST 


CURDBPTR _ 


PCB 





entry. 
DLZUCDSO 


JCB 
JCBSDB1 LESLPTR 
| JCBSDBND | 


CKPT Record 





DLZURGSO — DB SCAN CSECT 


Extended Description Routine 


15. If DBS control cards were present, 
only those data bases in the control 
list that were on DBS cards are 
scanned. 


Write DLZ970I scan processing 
started. 


. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets the utility suffix ‘4’. The ‘BLDB’ 
call loads all blocks for the PSB 
specified and allocates buffers. 


Write DLZ956I for a data base control 
block build failure. 


. If a PCB is not found, an UNLD is 
done to release the buffers before 
the next BLDB cali (return to step 
16). 





18. Save PCB and JCB pointers. 
Set up initial segment list 


data base. 


jump CALL Macro 


FASMTDLI | 






CURSGPTR 


PRMLST SSA 


P| [aro 
aa 


DLZURGSO 


Extended Description Routine Label 
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Figure 2-36. DB SCAN (DLZURGSO) (Part 5 of 8) Figure 2-36. DB SCAN (DLZURGSO) (Part 6 of 8) 


INPUT PROCESS 3 OUTPUT INPUT PROCESS OUTPUT 
DLZUCDSO PRMLST 
Count 
T_> 23. Issue a GN for segname. 1/0 Area 


DLZUCDSO 


19. Locate the SDB and PSDB for 
each segment list entry that 
is to be scanned for this db 


segment 
list entry 
A (PCB) (ees) CALL Macro [sament_ "J 


User DL/I 
Data Bases 





GN segname 
to DL/t 
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User DL/I 
Data Base(s) 





TBSDEND 
CURSGPTR 

20. Get I/O areas. 
PRMLST 


CURSGPTR DLZUCDSO 
LEFPTR 
LENAME 

CHKORGS LEPSDB 

LELSDB 





PSDB 


DMBLST 





DLZURGSO — DB SCAN CSECT 


Extended Description 


19. The Control Data Set entries are 
modified to save SDB and PSDB 
addresses. 


Write DLZ9691 if an SDB is not 
found for the segment in the segment 
list entry. 


. The size is the longest needed for 
this data base. Any previous I/O 
area is freed. 


. Position is by a qualified key call. 


. The first segment list entry will 
either be the initial entry for the 
db or the segment list entry to 
restart from. 


Write DLZ971I Scan processing 
completed for this DB if no more 
segment entries. 








FREEVIS Macro 


GETVI!S Macro 


I 


21. If restart, position the data 


base. 
=m CALL Macro 


ASMTDLI 


22. Get a segment list entry, 
build a parm list for its 
segment type and continue to 
next step. At the end of 
entries, go to step 14. 


Routine Extended Description 





PCB — ———— > 24. if there are no more occurrances 
of a ecluiaal type, go to pat 
step 22. 
PRMLST 1/O area 


PSTDSGA 
PSTBYTNM 


A (/O area) 





PCB 


DBPCBFD 


PRMLST 


DLZURGSO 


Routine 


JCB PSTADDR 


LEV SDB 


E 
scD 


foe) 


w 


ts 


25. Get buffer address of segment. 


daa} DLZDBHOO 
BALR PSTBYLCT 


PST 
PSTDATA 





Label 








Extended Descrip 


SCDDDBHC 


PSDB 


DMBPTR PSTDATA 


DLZDSEHO. 


SEGM in 
buffer 


Parm List 


CTR 


LFT ptr BALR 


LTB ptr 


A (LPCK) 
A (CDSREC) 





DLZURGSO — DB SCAN CSECT 


tion Routine Label 








23. Every occurrance in the data base of 


the LC or LP segment type to be 
scanned is read and a workfile record 
created for it. 


. If the return code is ‘GB’, indicating 


EOF for this segment type, return 


. to process next segment list entry. 


. Scan must have the prefix information 


to give to DLZDSEHO. 


Write DLZ958I for a buffer handler 
error retum. 


. In addition, R11 has the address of 


WORKFIL DTF, R1 has the PST 
address, and PSTWRK1 has the 
*‘FUNCIHPS’ and SDB address. 


rT > _ 26. Fill in parameter list for 


27. Go write WORKFIL record. 


7) DLZDSEHO 


Extended Description 





26. (con’t) 


. Registers are saved and then restored 


prefix + 
segment (in 
buffer) 





Parm List (R3) 
CTR 


LFT ptr 

LTB ptr 

LP ptr 

A (LPCK) 

A (CDSREC) 


save 
registers WORKFIL 





DLZURGSO 


Routine 





Test routine in DLZDSEHO will 
determine the output records required 
by scanning the SEC list. 


upon return. 


Write DLZ952I for an error return 
code from DLZDSEHO. 
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Figure 2-36. DB SCAN (DLZURGSO) (Part 7 of 8) Figure 2-36. DB SCAN (DLZURGSO) (Part 8 of 8) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


CHKPTINC | CHKPTLOC — — —628. Perform checkpoint operation if BGceTioe 


required. Otherwise, skip to step 33. 
PRMPCBAD PCB Checkpoint 
Record 


{i 29. Build checkpoint record. — 
CHKPTN 
CHKPTSVC 
CHKPTSVD 
CHKPTSVE 


I 


DBPCBSFD 





Card Control > «=o 34”. Dump if non-zero error code 
(optional) and ABEND was on a control 
RTCD card. 


ae ——) PDUMP Macro 





lasers 30. Write checkpoint record to 


= 
ce) 
ee] 
A 
a 
r 


length of record 


Checkpoint 


CHKPTN 
Record Caller 


key length Registers 36. Return. 
key 





Record , 
ecor, WORKFIL. 35. Close all files. 
Gaeay PUT M 
venoes (=a CLOSE Macro 
AWRKDSEH PCB oe 
ecor 
CL] 31. Build the continuation checkpoint xB" 
i record, 


DLZRRCOO 
2-3.4 
Chekpasit 32. Write continuation checkpoint 
Record . record to WORKFIL. 
WORKFIL 
=> TRUNC Macro 
33. Return to step 23 to get next occurrance 
of this segment type. 
DLZURGSO — DB SCAN CSECT DLZURGSO 

DLZURGSO — DB SCAN CSECT © DLZURGSO Extended Description Routine Labei Extended Description Routine Label 


Extended Description Routine Extended Description Routine Label 34 


28. A checkpoint record is written after 
every ‘n’ work file records. ‘n’ is 
specified on the CHKPT input card. 


36. Indicate to batch initialization that 
UNLD is not necessary (R15 = 4) if 
this utility is terminating before any 
blocks were loaded or if there was a 


. Note that the checkpoint record is control block build failure. 


built with zeros where the RBN 
number would be (CHKPTSUB). 
This forces an *C call (qualification 
by concatenated key) instead of 
*T (retrieve by direct address) 
during restart processing. Retrieve 
by direct address would be used if 
working with HISAM data sets. 


. Message DLZ9671 is written to the 
console giving the current check- 
point record number for later 
reference. 
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Figure 2-37. Prefix Resolution (DLZURG10) (Part 1 of 4) Figure 2-37. Prefix Resolution (DLZURG10) (Part 2 of 4) 
INPUT PROCESS OUTPUT ge INPUT PROCESS OUTPUT 





Z OUINJOA ‘enue SIBOTSA/SOGI/1G +S7-Z 


From 
DOS/VS 


1. Establish base addressability. 


OPEN Macro 


COMRG and 
GETIME Macros 


C] 


R12 


R8 


—  — -— 6. Determine device type and open first 
input workfile and output files. 


WRKINnn 
INDXWRK 
INTRMED 


DLZDVCE Macro 


CNTLCARD quem OPEN Macro 


CNTLIR 





2. Read control card and close SYSIPT. CNTLCARD bac a 
SYSIPT quam GET Macro INDXWRK 
Card I/O Area 
(=a) CLOSE Macro C) ae 7. Load and execute SORT/MERGE. 
WRKINon um) LOAD Macro 
3. Determine device type and open the == INTRMED 
CONTROL data set. BALR aie 
== DLZDVCE Macro 
pallid 8. Close secondary index data set if it was 
a) OPEN Macro opened. 
CDSHD DBNAMEFC 
Bae oe oe 
4. Read all control records. LOSE Macro 
M: : , . 
ee) SET ieee VSE 9. If no logical relationships, go to Step 14. 
Cc 
co OL GETVIS Macro image 
Data Set Library 


5. Close the CONTROL data set. 


CLOSE Macro 


CONTROL 
Data Set 








DLZURG10 — Prefix Resolution CSECT DLZURG10 
Extended Description Routine Extended Description Routine _ Label 
DLZURG10 — Prefix Resolution CSECT DLZURG10 
wloas : ws : 6. The secondary or logical data sets may 
Extended Description Routine Label Extended Description Routine Label or may not be opened depending on the 


1. Module identifier (DLZURG1 0Ovrnp) 
is defined here. 


The time and date are acquired and 
message DLZ9681 is printed at this 
time to indicate the beginning of 
execution for DLZURGIO. 


. Write message DLZ954]I for an input 
control card format error. 


. Write message DLZ984]I for an invalid 


device assignment for the file. 


. Write message DLZ957I if there is no 
control data set or if the ID is not 
“CONTROL DATA SET”. 


Write message DLZ391I for a GETVIS 
failure. 


The maximum record length calculated 
by the prereorganization utility is 
obtained from field LESRTSZE and 
passed to SORT. 




















user option on the input control card. 


. Write message DLZ9821 if the return . 
code from SORT is not zero and go 
to Step 15. 


Sort is by (13, 255, A, 5, 1, A). Exits 
E15 and E35 are described in Figures 
2-37.1 and 2-37.2. 


. If there was no data put to the second- 
ary index data set, put a dummy record 
before closing. 
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Figure 2-37. Prefix Resolution (DLZURG10) (Part 3 of 4) 
INPUT PROCESS 


—-= > 10. Close intermediate file and 
OC determine device type and open 
for input. 
INTRMED 
CLOSE Macro 


eas DLZDVCE Macro 


OPEN Macro 


—— —— 11. Determine device type and open 
C) logical relationship output 
data set. 
WORKFIL = DLZDVCE Macro 
== OPEN Macro 


Ri 
A (Parm List) 


PARLST2 


[4 


— —— -—p $13. Print statistics and message 
summary if requested. 


piglets em PUT Macro 
Data Set 


T __..@ 12, Load and execute SORT/MERGE. 


j= LOAD Macro 


(alm) | sont merce 









DLZURG10 — Prefix Resolution CSECT 


Extended Description Routine Label Extended Description 


.OPENWLR 


12. Sort is by (29, 16, A, 5, 1, A). Exits 
E15 and E35 are described in Figures 
2-37.3 and 2-37.4. 


Write message DLZ9821 if the return 
code from SORT is not zero and go 
to Step 15. 


. Control data set contains options as 
specified in DLZURPRO. 








Figure 2-37. Prefix Resolution (DLZURG10) (Part 4 of 4) 


OUTPUT INPUT PROCESS OUTPUT 





CNTLCARD RTCD 
DUMP 


—_— > 14. Dump if error code is 16 or 
Card 1/0 8 and DUMP was specified on 





Aree the control card. 
SYSLST 
ead PDUMP Macro 
15. Close the printer. 
== CLOSE Macro 
16. Close INTERMED and WORKFIL if 
required. 
= CLOSE Macro 
17. Return 
EOJ Macro 
SYSO11 To VSE 
SYSLST 
DLZURG10 DLZURG10 — Prefix Resolution CSECT DLZURG10 
Routine Label Extended Description Extended Description Routine Label 





14. Write message DLZ966I for normal 
program termination. 


15. 
17. 
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Figure 2-37.1. SORT E15 (DLZX15S1) Figure 2-37.2. SORT E35 (DLZX35S1) 
























INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
From From 
SORT/ SORT/ 
MERGE MERGE 
a INRECAD PARMADDR 
) [4 PARMADDR Ld 
s arm List) 
Tes. Read workfile records and pass : . Establish address to record DLZURWF1 
WRKINan to SORT/MERGE. Parm List passed by SORT/MERGE. 
jaa 
SAVE Macro 
=== SAVE Macro 
qu ee 2. ie a Hest address is zero, 
DLZURWF1 CDSHD g ie 
Gah RETURN Macro 
Aria 3. Process record depending on DLZURWFS 
— —p 2. Atend-of-file, close workfile . FeCOrelty Pe: ae 
and open next one, if any, and : 
return to Step 1. ____ 
Card 1/0 CONTROL 
pres Gemme) cL0se w Data Set 4. If logical relationships, 
ae write to intermediate file. 
==> mie ate == PUT Macro INTERMED 
PARMADDR 
3. When no more workfiles, indicate 
end to SORT/MERGE. 5. If secondary indexing, write 
to SI output file. 
qu PUT Macro INDXWRK 
To 6. Indicate DEL to SORT/MERGE. PARMADDR 
SORT/ ; 
MERGE 
_ RETURN Macro Parm List 
7. Indicate END to SORT/MERGE. A (DEL) or A (END) 
: To 
DLZX15S1 — SORT E15 CSECT DLZURG10 SORT/ 
MERGE 
Extended Description Routine Label Extended Description Routine Label DEAN Sho <2 SORT ES CSECr DLZURG10 


Extended Description Routine Label Extended Description Routine 


1. Record length is changed to the maximum [DLZX15S1 |DLZX15S1 


record length calculated by the prereor- 


1. SORT/MERGE passes one record ata |DLZX35S1 |DLZX35S1 6. SORT/MERGE gets another record and 


ganization utility (DLZURPRO) and 
passed to SORT by the prefix resolution 
utility (DLZURG10). Original record 
tate is saved in last 2 bytes of LRECL 
ield. 


time to this exit. The record is repre- 
sented by the macro DLZURWF 1 which 
contains the DSECT defining the 
format. The original record length is 


reenters this exit at Step 1. 





restored before processing. 


Indicate ADD to SORT/MERGE after 


each GET. . Macro DLZURWF3 contains the 


DSECT defining the format of the 
output logical record and later used as 
input for DLZURGPO. 


. CNTLIFCis the number of input workfiles 
specified on the utility control card. 


Possible errors are: 


DLZ955I — Invalid input record. 

DLZ977I — Duplicate record for LP. 

DLZ9781 — Caution — no LC for LP. 

DLZ979I — No LP found for LC. 

DLZ980I — No LC found for LT. 

DLZ989I — Multiple LC/LP with no LT 
pointer specified. 


. This file used as input for second 
SORT/MERGE. 


. This is final output for secondary 
index relationships. 
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Figure 2-37.3. SORT E15 (DLZX15S2) 


INPUT PROCESS 
1. Get records from intermediate 


From 
C) = file and pass to SORT/MERGE. 


SORT/ 
MERGE 
INTERMED == SAVE Macro 
(=) GET Macro 


2. At end-of-file, indicate end 
to SORT/MERGE. 


DLZX1582 — SORT E15 CSECT 


Extended Description Routine Label Extended Description 


1. This file was written during first sort. |DLZX15S2 |DLZX15S2 





Z WOT}20g 
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uo! 
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To 
SORT/ 
MERGE 


OUTPUT 


PARMADDR 


A (Parm List) 


Parm List 





PARMADDR 


A (Parm List) 


A (END) 





DLZURG10 


Routine Label! 











Figure 2-37.4. SORT E35 (DLZX35S2) 
INPUT PROCESS 


From 
ISORT/ 
MERGE 


R1 


A (Parm List) 


; 1. Establish address to record 
Farm List passed by SORT/MERGE. 


A (record) 
== SAVE Macro 


2. If the record address is zero, 
DLZURWEF3 go to Step 6. 


CTYPE 





3. Process record depending on 
record type. 


4. Write to LR output file. 


= PUT Macro 


5. Indicate DEL to SORT/MERGE. 


RETURN Macro 


6. Indicate END to SORT/MERGE. 


ST _ 


To 
SORT/ 
MERGE 


DLZX35S2 — SORT E35 CSECT 


Extended Description Routine Label Extended Description 


. SORT/MERGE passes one record at a DLZX35S2 
time to this exit. EXIT35S2 


. Possible errors are: TP30RT 


DLZ9551 — Invalid input record. 
DLZ980I — No LC found for LT. 
DLZ9811 — Duplicate record for LT. 


. This file used as input for the prefix 
update utility (DLZURGP0). 


. SORT/MERGE gets another record and 


reenters this exit at Step 1. 





OUTPUT 


PARMADDR INRECAD 
A (record) 


DLZURWF3 





Work Area 


OL 


WORKFIL 


PARMADDR 


A (Parm List) | (Parm List) 


Parm List 


A (DEL) or A (END) 


RTCD 





DLZURG10 


Routine Label! 
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Figure 2-38. Prefix Update Utility (DLZURGPO) 
INPUT From DL/|_ [ PROCESS 


1. Read control card. 


SYSIPT . 
2. Determine device type and open 


input files. 


s | o- | —_——_____ > 3. Read input record. 


—_ = - 4, If not already loaded, load data 
base control blocks. 


a 5. Process input record. 


Data Base 


6. At EOF, close all files. 


DLZURGPO — Prefix Update Facility 


Extended Description Routine Label Extended Description 





1. 


2. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 


. DLZBLKLD macro is used to load DB 
blocks dynamically. 


. TYPE 0 and TYPE 1 records (LC/LP) 
are processed by buffer handler calls. 
TYPE 4 records (SI) are processed by 
DL/I INSERT/UPDATE calls. 





Return to 





OUTPUT 


Data Base 


DLZURGPO 


Routine 


Label 
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. Figure 2-39. Workfile Generator (DLZDSEHO) (Part 1 of 2) Figure 2-39. Workfile Generator (DLZDSEHO) (Part 2 of 2) 


INPUT DLZDDLEO fp@ PROCESS OUTPUT INPUT PROCESS OUTPUT 
Figure 2-10 
1. Perform initialization (Figure 7. Exit with return code. R15 

From 2-39.1.). | 
DLZURGSO 
Fig. 2-36 

Parameter : 

List (R3) 


2. If DLZURGSO is caller, ake 
A. Initialize dummy reload 
prefix header with par- 

Lod ameters. 


PSTUSER 
B. Store its address. 
| 





OMBSCDE —" ‘ 3 


4 = 
) en. 


. If end of secondary list, go 
to step 7. 


4. Match control data set entry 
with LC or LP secondary list 
entry. 


Control 
Data Set 





5. lf LP segment, 














WORKFIL 
A. Build Type 00 record. Record 
DMB PSTUSER 
a B. Put to WORKFIL. 
DBPCBKFD__1/O area C. Goto step 3. 
segment 
6. Go to Figure 2-39.4 to process 
LC segment. 
WORKFIL 
| Pre vane em PEAPSEHG DLZDSEHO — Workfile Generator DLZDSEHO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Desecri Beating ' 





1. This primary entry point is used by IDLZDSEHO |INIT 
Load/Insert when a data base is being 
initially loaded or reloaded. There are 
7 fullwords of addresses immediately 
preceding this entry point used by 
modules that interface with 
DLZDSEHO. A logical parent or 
logical child record is input to this 
module. 


7. If any error occured, call DL/I error 
message module to write DLZ007I 
message on console with return code. 





2. This is the primary entry point for the 
scan utility. 


e 3. This routine must be re-entered when 
- the input segment is an LP because 
o¥ it could have more than one LC type. 
=) 
N 4. 
5. Description of WORKFIL record can 
= be found in DLZURWF1 dsect. 
= 
o 
a 
g 
3 
= 
© 
2. 
ie) 
i} 


6ST—Z 
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Figure 2-39.1. Initialization (DLZDSEHO) Figure 2-39.2. Open Workfile (DLZDSEHO) 


From Fig. F tl 
INPUT 2-39 Step 1 PROCESS OUTPUT INPUT ni ecard PROCESS OUTPUT 










PSTWRK1 ———“#}"” 1. Establish addressability for R13 R14 P? 1. Establish addressability. 


fe] DL/I tables needed. 





RO 








2. If WORKFIL is not open, go to RIS 2. Set up input for FINDDTF. 
Figure 2-39.2 to open it. R2 R3 
OPENWORK : [a (tape DTF) | 
3. Get DTF address (Figure 2-39.3). 
3. Open Control! Data Set and read 
all records. 
Control Control 
Data Set Data Set —— —p 4. Open DTF for WORKFIL. cI C) 
4. Close Control Data Set. WORKFIL SYS013 
5. Save DTF address. > Entry Point — 4 
[Aw | (DTF) 
6. Exit to R14 + 4. 
To Fig. 2-39 
Step 2 
Return to 
Caller 
DLZDSEHO — Workfile Generator DLZDSEHO DLZDSEHO — Workfile Generator DLZDSEHO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





Note: This routine is called by DLZDSEHO 


1. The secondary list entries for the input DLZDSEHO |INIT DLZDXMTO, and DLZURGSO. 


segment are the primary source of 
information from the DL/I blocks. 


. The address of the DTF is found in 
the address list at the beginning of 
DLZDSEHO. If it is 0, this workfile 
must be opened. 


. If control is returned to address in 
R14, an error occurred. R14 + 4 is 
the normal return. 


. R15 has address of correct DTF as 


. This open is done only once. The returned by FINDDTF. 


‘FINDDTF’ routine is used to 
determine the correct DTF. If more 
than one record exists on the CDS, 
a GETVIS is done to hold the entire 
file in storage at one time. 


. When the WORKFIL is open, the 
address is saved in the address list in 
the beginning of DLZDSEHO csect. 


. If an error was detected, control is OPENEXIT 
returned to the address in R14. 
Normal return is R14 + 4. 
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Figure 2-39.3 Find DTF (DLZDSEHO) 


INPUT From Caller 
(See Note) 


PROCESS 


RO —— = > 1. Issue DLZDVCE macro. 
number 
Ba 2. If a tape, set R15 to tape 


DTF address. 


3. If a disk, 


R2 
A (disk DTF) 


A. Modify DTF 


B. Set R15 to disk DTF address. 


4. |f other than tape or disk, 
go to step 6. 


5. Exit to R14 + 4. 


6. If IGN, set R15 to zero. 


7. Exit to R14. 


DLZDSEHO — Workfile Generator 


Extended Description Routine Label Extended Description 











Note: This subroutine is called by 
OPENWORK, DLZDSEHO, and 
DLZURGSO. DLZDVCE macro finds 
PUB entry for given programmer logical 
unit and the device type byte is used to 
determine further processing. 


OPENWORK |FINDDTF 
. 2400, 3410, and 3420 are supported. 


. 2314, 3330, 3340A & B, 3350, and 
3375 are supported. 


. Normal return. 


. This allows DLZDXMTO to build 
secondary entries. 


. This is the error exit. 











Figure 2-39.4. Build LC Output (DLZDSEHO) 


OUTPUT INPUT PROCESS 


From Fig. 
2-39 Step 6 


Pub = 
PSTUSER 


R15 


A (tape DTF) BNE 


1. Build type 10 record and 
write it to WORKFIL. 


2. If LTF pointers and non-unique 
sequence field, build and write 
type 20 record. 


DBPCBKFD 


ie 
R15 
A (disk DTF) 


3. If LTB pointers and non-unique 
sequence field, build and write 





type 30 record. 
Control 
Data Set 
Return to 
Caller 
R15 
Return to 
Caller 
DLZDSEHO DLZDSEHO — Workfile Generator 
Routine Label Extended Description Routine Label Extended Description 





To Fig. 
2-39 
Step 7 









OUTPUT 


WORKFIL 
Record 


type 10 


WORKFIL 
Record 


type 20 
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Routine Labe! 
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Figure 2-40. Log Print Utility (DLZLOGPO) 


INPUT 
DOS/VS 


LOGINO1 to LOGINnn 


OLZLOGPO — Log Print CSECT 


Extended Description 


Routine Label 


Evan PROCESS 


1. Read and process control cards. 


DLZLPCCO 


= Control Statement 


Processor 2-40.1 





If any errors detected by DLZLPCCO, 
go to Step 9. 


. Open output log if requested. 


. Determine log device type and 


open log file. 


. Read log records, deblock, and 


determine record type. 


. Print log records. 


. Write log records to tape if requested. 


. Close input log file. If more files, 


return to Step 3. 


. Close output log if requested. 


. Print informational statistics 


and error messages, if any. 


Extended Description 


. Register 1 points to log print common |DLZLOGPO |GETCARD 


area. 


2. Output log requested by ‘COPY’ on 
‘LO’ statement. 


. DLZDVCE macro obtains data from 
PUB (physical unit block) and modifies 
DTF. If VSAM log, ACB is modified 
manually. 


. Valid DL/I record types are: 


© Data base record (X‘50’ and X‘51”) 
© Open record (X‘2F’) 

© Scheduling record (X‘08’) 

© Termination record (X‘07’) 

© Checkpoint record (X‘41’) 


. Records are printed in either keyword 
or dump format. 


. Log records are written to tape as read. 


. nn of LOGINnn is incremented by 1 
if more files. 


. Output log is closed when log record 
in error is encountered. 








DLZLOGPO 


Routine 





Label 





Figure 2-40.1. Control Statement Processor (DLZLPCCO) (DLZLOGPO) 


INPUT PROCESS 
From Figure 
2-40 Step 1 


SYSIPT 


1. Read control statements. 


2. Validate control statements and save 
information in log print common area. 


3. Return to DLZLOGPO. 


DLZLOGPO — Log Print CSECT 


Extended Description Routine Label 


DLZLPCCO | GETCARD 


1. Possible card types are: 


‘LO’ — describes print options, 

‘LS’ — describes additional selective 
print options, 

‘LP — describes input log files. 


2. Flag ERROROCC in LOGPFLG1 is set if 
any errors are detected. 


3. If no input statements received, print 
default message DLZ4161. 








Extended Description 


OUTPUT 


Log Print Common Area 


DLZLOGPO 


Routine 





Labei 
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Figure 2-41. Field Level Sensitivity Copy (DLZCPY10) Figure 2-41.1. Field Level Sensitivity Insert (DLZCPY10) 





















INPUT From Figure j™ PROCESS OUTPUT INPUT From Figure Jf PROCESS OUTPUT 
PSTUSER 2-8.1 Step 8A 2-41 Step 4 
PSBIOAWK 1. Get addresses of user segment(s) and : ; 
Soa) output I/O area. aac 1. Cerne ae length of segment 
2. Calculate segment offset in output 1/0 LEVUSEOF 2 Cl bi 
area for this level. Co 4 . Clear segment to binary zeros. 
: ; , n FDB chain and, if segment is a logical 
— 3. If segment at this level is not FLS, move ‘ ord i SEC ane iocue all fields. for 
as is from user I/O area to output I/O the segment. Move default value to output 
area: I/O area for each non-key field. 
4. If segment at this level is FLS and call 4. If concatenated segment, scan destination 
is ISRT, perform insert processing. parent FDB chain to locate its fields. Move 
default value to output 1/O area for each 
Guz) non-key field. 
Perform insert 
: i 5. Call DLZSEGCV. 
5. If segment at this level is FLS and call 
is REPL, perform replace processing. 
21 3 DBPCBSTC 
Mi cabs error, return status code 
r. 
6. If another level to process, go to step 2. PSTUSER 
Otherwise, point PSTUSER to output Return to 
1/O area and return. Figure 2-8.1 
Step 9 
6. Return 
Return to 
Caller To Figure 
2-41 Step 6 
DLZCPY10 — Field Level Sensitivity Copy DLZCPY10 DLZCPY 10 — Field Level Sensitivity Copy DLZCPY10 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 





1. PSTUSER points to user’s view of DLZCPY10 }|DLZCPY10 
segment(s). PSBIOAWK points to 
I/O area to contain physical view of 
segment(s). 


1. If variable length segment, use insert |] DLZCPY10 
length in SDB expansion block. 
Otherwise use length in PSDB. 
If concatenated segment, logical 
child and destination parent lengths 


. LEVUSEOF will be changed from must be added. 





7) offset in user I/O area to offset in 
@ output I/O area. ISRT100 
rs . Length of segment to be moved ISRT105 
= must be determined. If variable 

length segment, length is in first two ISRT180 
N bytes of segment, otherwise in PSDB. 
Z Hs Para bna Sete d ag ; Fore status codes are KA, KB, KC, SEGCV 

i on pé d KD. 
oO be added. 3 
oma 
= 
© 
Qu. 
.o) 
=r 
© 
a] 
oO 
= 
pe) 
. 
e) 
=) 
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Figure 2.41.2. Field Level Sensitivity Replace (DLZCPY 10) Figure 2-41.3. Field Level Sensitivity Segment Convert (DLZSEGCV) 
INPUT From Figure PROCESS OUTPUT INPUT From Caller PROCESS OUTPUT 
2-41 Step 5 See note. 
Buffer 1. Read segment to be replaced FER 1. The SDB is used to locate the SDB 
[i expansion block and the first FSB. 
SDB 
Buffer Hand! 
= = 
and move to output /O area. 
FSB 2. If SSA call, compare SSA field name to 
2. If concatenated segment, read [7 FSB field name. If no match, go to 
destination parent segment. step 7. 
a) Buffer Handler FER 3. Initialize FER fields and set to and 
[ from parameters. 
3. Call DLZSEGCV. 
4. If to and from types different, convert 
(==> Segment convert Routine field to desired format. 
2.41.3 
If conversion error, return status DBPCBSTC : de ays 
coda tober: 5. Move field to destination. 
. If REP =N i ified, . ‘ 3 7 
a penne ce d ne pea tied al 6. Call user field exit routine, if any. 
to old field. If field modified, return Wen et ee ete 
status code to user. == 
If error indicated in FER, return error Pearse 
raat code to caller. | error code | code 
Step 9 
7. If another FSB to process, go to step 2. an 
5. Return. Otherwise, return to caller. 
2 Return to 
ToF 
241 Step 6 Caller 
DLZCPY10 — Field Level Sensitivity Copy : DLZCPY10 DLZSEGCV — Field Level Sensitivity Segment Convert DLZSEGCV 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


Note: DLZSEGCV is called by 
DLZCPY 10 and DLZDLROO. 


1. DLZCPY10 |REPL 


3. Possible status codes are KA, KB, KC, 


and KD. 1. DLZSEGCV | DLZSEGCV 


2. DLZDLRO0 makes SSA call to FSBLOOP 
convert SSA user field to physical 
view. Only this field and its 
subfields will be converted. 


4. Status code KE is returned. 


FSBO10 
CONVERT 
MOVE 


. Possible error codes are A, B,C, USEREXIT 
and D. 


NEXTFSB 
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Figure 2-42. Trace Print Utility (DLZTPRTO) 





INPUT PROCESS OUTPUT 


From 
VSE 


SYSIN 


DISKIN 


TAPEIN 





DLZTPRTO — Trace Print Utility 


tExtended Description Routine Label 


. Reads TI statement if present and 
prints card image on SYSLST. If any 
other type statement is present, it is 
also printed, but no further processing 
of it takes place. 


. Storage is acquired for two input 
buffers. 


. ‘hé DLZDVCE macro is used to 
validate the trace inpit device, and 
modify the tape or disk DTF. 


. The unformatted trace records are 
read: from the trace input file until 
EOF is returned. 


. The trace entries are formatted and 
printed one at atime until all entries 
in the record are processed. Control. 
is then passed to step 6 for the next 
record. 





1. Open reader, printer, and console log. 
SYSLST 


2. Read and validate control statements 


if present. 

3. Close reader. 

4. Acquire storage for input buffers. 

5. Check trace input device type, modify 
DTF, and open it. 

6. Read trace input. 

7. Check trace entry against TO SYSLST 
selection, if specified. 


8. Format and print trace output. 


9. Close all files and issue any statistical 
or error messages. 


SYSLST 
SYSLOG 
Return to 
VSE 
DLZTPRTO 
Extended Description Routine 


GETENTRY 








Extended Description Routine Label 








Figure 2-43. DL/! Run and Buffer Statistics (DLZSTTL) 


INPUT PROCESS 
CICS/VS 


CSA 


CSAOPFL TCASCSA 
CSADLI BFPL 
scD BFPLSUIN 


SCDDBFA SBIF 


1. Establish addressability. Acquire 
working storage. 


SCD 2. Edit and put out run statistics. 


BFPLROCT 
BFPLINPL 
BFPLRDCT 
BFPLALTR 3. Convert buffer statistics to packed 
BFPLOSWT. decimal. 

SBIF wT 
BFPLNWBK 
ISUBBFNO | WT 


SUBBFSIZ FPLCHBK 


BFPLISTL 5. Convert one byte numbers to fullword, 
BFPLIGET then to packed decimal. Edit and put 
out configuration statistics. 


4. Edit and put out buffer statistics. 


6. Issue message to terminal. 


7. Return to CICS/VS. 


DLZSTTL — DL/I Run and Buffer Statistics 


Extended Description 


1. Entry is from CICS/VS when the user 
enters the transaction code ‘CSDE’ or 
when the CICS/VS master terminal 
operator issues the ‘CSMT SHUT- 
DOWN’ command. R12 contains 
the TCA address, R13 contains the 
CSA address, and R14 contains the 
entry point address. 


2. The CICS/VS macro DFHSC is used to 
acquire storage for the transient data 
output area (TDOA). 


3,4,5 Internal subroutine STTLPUT 
writes the statistics to the CSSL 
extra-partition transient data set, 
using the DFHTD macro. 


6. If DL/I is not active, issue message 
DLZ280I using the DFHWTO macro. 


7. Use DFHPC macro to return to 
CICS/VS. 





OUTPUT 


TDOA 
| TDOAVRL_| L 
MSGDATA 


OI 


CICS/VS 


DLZSTTL 


Routine Label 
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Figure 2-44. Partial Data Base Reorganization (Overview) 
PROCESS 


INPUT 


Extended Description 


1. 
2 
3. 
4, 
5. 
6. 
7. 
8. 
9. 





1. PART1 Control. 


(See Figure 2-44.1) 


2. Action Table Build. 


3. 


4. 


(See Figure 2-44.2) 


Cleanup. 
(See Figure 2-44.3) 


DBD Analysis. 
(See Figure 2-44.4) 


5. PSB Source Generator. 


(See Figure 2-44.5) 


6. PART1 Report Generator. 


10. 
11. 
12. 
13. 

14. 
15. 
16. 
17. 


18. 


Routine 





(See Figure 2-44.6) 


. Parameter Analysis. 


(See Figure 2-44.8) 


. Error Message Writer. 


(See Figure 2-44.16) 


. PART2 Control. 


(See Figure 2-44.7) 


Parameter Analysis. 
(See Figure 2-44.8) 


Scan Control. 
(See Figure 2-44.9) 


Update Prefix. 
(See Figure 2-44.10) 


Sort Control. 
(See Figure 2-44.11) 


Unload/Reload Control. 


(See Figure 2-44.12) 


Workfile Manager. 
(See Figure 2-44.13) 


DL/I Services. 
(See Figure 2-44.14) 


Statistical Writer. 
(See Figure 2-44.15) 


Error Message Writer. 
(See Figure 2-44.16) 


Label 


Extended Description 





OUTPUT 


Routine 


DLZPRPAR 
DLZPRSCC 
DLZPRUPD 
DLZPRSTC 
DLZPRURC 


DLZPRWFM 
DLZPRDLI 

DLZPRSTW 
DLZPRERR 


Label 








Wal Jo Ayr0do1g—eyisjey,] posuscy] 





Z wonses 


Hered Jo poo 


uol 


L9Z—7@ 








Figure 2-44.1. PART1 Control (DLZPRCT1) 
INPUT PROCESS 
VSE 


Bad 1. Get storage for control tables. 


Load List 


2. Load service modules and save entry 


Points in COMAREA. 


DLZPRERR 





R15 


Return D pairs z 
Code in link list. 





DLZPRCT1 — PART1 Control 


Extended Description Routine Label Extended Description 


1. DBT — data base table. 
SGT — Segment table. 
ACT — action table. 


RGT — range table 
DOS/VS GETVIS issued. 


2. The common area (COMAREA) is part 
(CSECT) of this module and is not 
dynamically acquired. 


3. Initialize name of primary data base. 


Link List 
4. indicate Part 1. 
DLZPRPAR 
DLZPRDBD 5. Link to each phase in Part 1. 
DLZPRABC 
DLZPRPSB 6. Check for error on completion of each 
DLZPRREP T phase. If error, issue message DLZ635! 
and return to caller. 
DLZPRCLN | 
COMAREA | 
| 


7. Continue to completion of each phase 





Caller 


VSE 


OUTPUT 





COMAREA 


MAFILE 
COMAERRS 
DBT 
DBTCNAME 

OVIAREA 
COMGPART 





DLZPRCT1 


Routine 


Label 
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Figure 2-44.2. Action Table Build (DLZPRABC) (Part 1 of 4) 


INPUT 


Figure 
244.1 


COMAACT i 
COMADBT |{___——— 5 


COMASGT 


COMAREA 





COMAREA 


COMAERRS am : 


L 


SGTGATR2_ | 


SGXOLP 





DLZPRABC - Action Table Build 


_ Extended Description 


4. ‘K’ action records. 





PROCESS 


1. Get address of SGT, ACT, and DBT. 


2. If SGT entry count is negative, issue 
message DLZ615!. 


em) 


DLZPRERR 


Error 
message 
writer 









3. If ACT entry exceeds limits, issue 
message DLZ623l. 


(=) 


DLZPRERR 





4. If this segment is not a logical parent 
or a logical child that have logical 
pointers to a segment that is moving, 
exit. 


5. Create ACT entry ‘K’ and scan action 
record for logical child’s logical parent 
pointer update. 


Extended Description 





Figure 2-44.2. Action Table Build (DLZPRABC) (Part 2 of 4) 


OUTPUT a= INPUT 





SGT 


ACT 


ACTOPRMV 


Calter 


ACTCROW 





DLZPRABC 


Extended Description 








DLZPRABC — Action Table Build 


7 


ff ee te 


PROCESS 


OUTPUT 


6. If this segment is not a virtually paired 


10. 


Routine 


. Create ‘OQ’ and ‘K’ action entries 


logical child whose logical parent is 
moving and there is a direct logical ° 
parent pointer, exit. 


Caller 


. Create a ‘C’ action entry type and an 


optional ‘K’ action entry for logical 
parent pointer update. 


. If this segment is not a logical child 


that is moving and is in a virtually 
paired logical relationship, and there 
are logical twin forward but no logical 
twin backward pointers, exit. 


Caller 
ACT 


for logical twin forward and logical 
child forward pointers. 


if this segment is not a logical parent 
of a logical child, which have logical 
pointers to a segment that is moving 
and are pointed to by the segment 
that is moving, exit. 


Caller 


DLZPRABC 


Label Extended Description Routine Label 


DLZROW02 


DLZROW03 
DLZROW04 
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Figure 2-44.2. Action Table Build (DLZPRABC) (Part 3 of 4) Figure 2-44.2. Action Table Build (DLZPRABC) (Part 4 of 4) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
11. Create ‘P’ action entries for logical 17. Create ‘J’, ‘T’, and ‘B’ action 
twin forward, logical twin backward, entries. 


and logical child forward pointers. SGT 


om 18. if this segment is not a logical parent 


SGT or logical child that is moving, exit. 


| — + — 12. If this segment is not a logical child 

whose logical parent is moving and 
which has a logical relationship in 
which both the logical child and its COMAREA 
paired logical child have direct logical 


parent pointers, exit. 


ACT 
19. Create ‘A’ action entry. Action table 


to process, go to Step 3. 
Caller 


ACT 


13. Create ‘I’ and ‘K’ action entries for AGtian dati 
Paired logical child’s logical pointer 


update. 


21. Check return code. 
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ae 20. If there are more action table entries 
| 
| 
| 
L 


22. If return code is greater than zero, 
issue message DLZ615!. 


= 


—-------+ 


> 14. If this segment is not a secondary 
index source segment, a target 
segment of a secondary index re- 
lationship, or a secondary index 
source segment that is moving, and 
has an /SX/ specified, exit. 


IDLZPRERR | LZPRERR 


Error 
message 
writer 





‘Calter 23. Return to caller. 


15. Create ‘B’, ‘R’, and ’S’ action 
entries. 
Caller 


ei 


> 16. If this segment is not a moved 
target segment of a secondary 
index source segment, exit. 


Calter 


DLZPRABC — Action Table Build DLZPRABC DLZPRABC — Action Table Build DLZPRABC 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


DLZROWO05 
DLZROWO06 


DLZROW19 
DLZROW20 


DLZROW13 


DLZROW16 


DLZROWI19 
DLZROW20 
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Figure 2-44.3. Cleanup (DLZPRCLN) 




















INPUT PROCESS OUTPUT 
Figure 
244.1 
R1 
OMAREA 
address al orm 1. Get address and length of COMAREA 
and open control. 
COMAREA q Control! 
2. Write COMAREA to control. 
COMAREA 


3. Get address and length of DBT. 


OMADBT 
CCOMFDBTL 


‘Control 





4. Write DBT to control. 


COMAREA 
DB 





COMAREA 


COMASGT ae eas 
COMFSGTL 


5. Get address and length of SGT. 





Control 
6. Write SGT to control. 
OMAREA 


COMAACT 
COMFACTL 


7. Get address and length of ACT. 





Control 


8. Write ACT to control. 
COMAREA 


COMARGT 


9. Get address and length of RGT. 





COMLRGT 





Control 


10. Write RGT to control. 





. Close control and return. 


Caller 





DLZPRCLN - Cleanup DLZPRCLN 


Extended Description Routine Label Extended Description Routine Label 
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Figure 2-44.4 DBD Analysis (DLZPRDBD) (Part 1 of 2) Figure 2-44.4. DBD Analysis (DLZPRDBD) (Part 2 of 2) 










INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
at 
COMAREA 
DBT Soi 9. Process segments in related data 
base. 
COMAREA fg¢————ro 1. Load data base description (DBD). 
aaa —— — — 10. Find target and source segments for 
er index entries and other index related 
DMB . = information. 
_——— 2. Identify data set groups (DSGs) and save 
COMAREA selected information. . SEGTAB 
es 
TGT . 
| cH 11. Process the SGT entries. Insert the 
COMAREA | proper logical parent prefix offsets 
| COMAERRS| P 3. Process segments in the DBD. COMAREA | for logical child first pointers to the 
a i logical children in the logical children 
4. Analyze pointers in the segment prefix. SGT SGT : segments. 
COMAREA 12. Process the SGT entries for all segment 
{| entries in HD data bases. Calculate 
=r physical child pointer offsets in the 
5. Check the hierarchic pointers and set une physical parent segment prefix for 
the appropriate flags. LC) all physical children segments con- 
SEGTAB sex tained in SGT. 
/————. 6. Find physical parent and save the as 
physical parent, physical child, and 
sibling offsets. 
eee TST 13. Step through the DBD’s SEGTAB and eal 
T COMAERAS| . : Ld find corresponding physical children 
COMAERRS > 7. Process LCHDTAB entries. fe and SGT entries and insert the ee 
[.._] physical child pointer offsets. { 
SEGTAB DBT 
Td ————¢ 8. Process external data bases and any Cs] 14. Return to caller. 
6B segments in the SGT not in the prime a 
Cc) reorganization data base. al 
Caller 
DLZPRDBD — DBD Analysis DLZPRDBD 
DBLZPRDBD — DBD Analysis DLZPRDBD 
Extended Description Routine Label Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label 


. If DBD is not in core image library, 
issue message DLZ612I. If DBD is 
not HD, issue message DLZ613I. 
If FROMAREA is for HIDAM or 
KEYRANGE is for HDAM, issue 
message DLZ604I. If HI/LO block 
number is not in RAA, issue 
message DLZ645I. 


9. If error, issue message DLZ615I. 
11. If error, issue message DLZ616]. 


14. R15 contains the return code. If an 
error message has been issued, R15 
does not equal zero; if an error 
message has not been issued, R15 
equals zero. 


. If error, issue message DLZ614I. DLZPRERR 
DLZPRERR 


DLZPRERR 


If error, issue message DLZ618I1. 


. If error, issue message DLZ616I, 
DLZ617I, or DLZ6181. 
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Figure 2-44.5. PSB Source Generator (DLZPRPSB) Figure 2-44.6. Report Writer (DLZPRREP) 
INPUT Figure PROCESS queen OUTPUT INPUT Figure PROCESS OUTPUT 
2.44.1 2-43.1 
fom Ly 
= [— 1. Generate PSB. — — —-) _ 1. Print header for range values. 
} 2. Initialize output PSB map with PSB 
| nore COMAREA __ __ 4B 2.:« If KEYRANGE is present, print 


KEYRANGE values. If KEYRANGE 
is not present, print FROMAREA 
values. 


L_ 3. Punch ‘PRINT NOGEN’ card image. 


c= DLZPRWFM 
COMAREA 


lil 


—_——-— 3. Print all TOAREA values for 





Work file 

COMAREA manager ae KEYRANGE/FROMAREA. 
DBT 

: COMAREA — a 4, Loop until there are no more 

leet 4. Generate PCB for prime data base P > oop UME 

a and punch card image. RGT entries to process. 
SGT : RGT 
Cc a = 5. Print header for the required 


segment to scan. 


== DLZPRWFM COMAREA | 


Work file 














manager 
— —-p— 6. If a segment is required to be 
COMAREA ; 
COMAREA F [J scanned, print the segment, else 
—_ 5. If prime data base can be scanned, print segment not found message. 
T generate alternate DBT and PCB SGT 
DBT | and punch card images. Cc] 
C) DBT 7. Loop until all SGT entries have 
| — been processed. 
| r—-P _8. Print header for optional segments 
[ SoMa’ J to scan. 
Work fit 
| —o 
L 6. Loop until PCBs are created for all ae —-—-- 9. If optional segment to scan print 
DBT entries. Cc segment, else print segment not 
SGT found message. 
——<p 7. Punch final cards for PSB. 10. Loop until all SGT entries have 
CJ been processed. 
en 
11. Return to caller. 
manager 
Caller 
DLZPRREP — Report Writer DLZPRREP 
8. Return to caller. 
Extended Description Routine Label Extended Description Routine Label 
ae DLZPRWEM 
DLZPRPSB — PSB Source Generator DLZPRPSB 
DLZPRWFM 
Extended Description Label Extended Description Routine Label DLZPRWEM 


; ‘ . DLZPRWFM 

1. If PSB is not generated, issue message 
DLZ627I and return to caller. . DLZPRWEM 
. DLZPRWFM 








0; 
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From 
DL/I 


Load list 


Common area 


COMAREA 


COMAERRS 


Control 


eee 


COMAREA 


ae 


Reg 1 | 


PCB list orign —l 


COMAREA 


a) 
esse) 


LINK LIST 


[+-- 


R15 


COMAREA 


Z 


COMAREA 


= 


DLZPRCT2 - PART2 Control 
Extended Description 


Load list includes: 
DLZPRWFM 
DLZPRERR 
DLZPRDLI 
DLZPRSTW 


VSE GETVIS is issued. If an error 
occurs, issue message DLZ639] and © 
return. 


If error, issue message DLZ6341 
and return. 


Figure 2-44.7. PART2 Control (DLZPRCT2) 
INPUT 


PROCESS 

1. Load service modules and save entry 
points. 

2. Read in COMAREA from control 
DTF. 

3. Restore all addresses in the 
COMAREA that are new for 
PARTZ2. 

4. Get storage for CONTROL tables. 

5. Read CONTROL tables from 
CONTROL DTF. 

» 6. Move PCB addresses, passed by 
DL/I at invocation, into the 
COMMON area for PART2 
processing. 

” 7. Print header line on SYSPRINT. 

> 8. Link to each phase in PARTZ2. 

>» 9. Check for error on completion of 
each phase. 

” 10. Issue completion message and close 
CONTROL, SYSPRT, and SYSIN. 

11. Return to caller. 
Routine Label Extended Description 


Link list includes: 
DLZPRPAR 
DLZPRURC 
DLZPRSCC 
DLZPRSTC 
DLZPRUPD 


If error, issue message 





a 


OUTPUT 


Load list 


amen 


COMAREA 
Control! tables 


GT 












1/0 AREA 


DBT 


Caller 


DLZPRCT2 


Routine 


DLZ636I, close data sets, and 


return. 


Issue message DLZ636I. 








DLZPRERR 
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Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 1 of 4) 
INPUT 


PROCESS qeneeeneeee 





Figure 
2-44.1 
or 

2.44.7 


ba 1. Read job control. 


2. If KEYWORD=DBNAME, DB=HD, 
and DBD exists, initialize for primary 
DBD. 


COMAREA | 
OMAFILE 


and operand is valid, initialize for 
KEYRANGE. 


DLZPRPAR ~ Parameter Analysis 


Extended Description Routine Label 


1. DLSPRWFM 


2, 3,4 If error occurs, set R15 not 
equal to zero and PCL (PARM 
Control Table) equal to type of 
error. 








3. If KEYWORK=KEYNAME, DB=HIDAM, 


4. If KEYWORD=FROMAREA, DB-HDAM, 
and operand is valid, initialize for 
FROMAREA. 





Extended Description 





Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 2 of 4) 


OUTPUT INPUT 





DBT 


PCL 


R15 


RGT 


PCL 


R15 


CI 
Pay 


COMAREA 


DLZPRPAR DLZPRPAR - Parameter Analysis 


Routine Label . Extended Description 


5, 7 If error occurs, set R15 not equal 
to zero and PCL equal to type of 
error. 


If error, issue error message 
DLZ602I. 


If error, issue error message 
DLZ6031. 





PROCESS 


5. 


Routine 








OUTPUT 


if KEYWORD=TOAREA and operand 
is valid, initialize target area. 


RGT 


PCL 


COMAREA 
If KEYWORD=PSB initialize for PSB. 


C 
aad 
el 
faced 
fs 


COMAREA 


If KEYWORD=SORTOPT and 
opearand is valid, initialize sort 
options. 





!f R15 does not equal zero and invalid 
KEYWORD is indicated in PCL, issue 
error message. 


If R15 does not equal zero and illegal 
continuation indicated in PCL, issue 
error message. 


DLZPRPAR 


Label Extended Description Routine Label 
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Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 3 of 4) 
PROCESS 


INPUT 


COMAREA 


in es: ee, Gas ee Gena 


DLZPRPAR - Parameter Analysis 


Extended Description 


Routine 





10. 


11. 


12. 


13. 


14. 


15. 


16. 





Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 4 of 4) 
INPUT PROCESS 





OUTPUT 





If R15 does not equal zero and no DBD 
exists for the DBNAME specified, issue 
message DL612I. 


If R15 does not equal zero and 
KEYWORD=FROMAREA for 
HIDAM or KEYWORD=KEYRANGE 
for HDAM is indicated in PCL, issue 
message DLZ604I. 


COMAREA 
If R15 does not equal zero and 
required KEYWORD missing is 


indicated in PCL, issue message 
DLZ605i. 


If R15 does not equal zero and DBD not 
HD is indicated in PCL, issue message 
DL2Z6131. 


If R15 does not equal zero and invalid 
KEYWORD in previous statement is 
indicated in PCL, issue message 
DLZ606Il. 


[pe eee at rel 


If R15 does not equal zero and data set 
specified on TOAREA statement does 


not match DBD, issue message DLZ614l. 


If there is more JCL to process, go to 


if R15 does not equal zero and Step 1. 


KEYWORD previously specified is 
indicated in PCL, i 

eeaa Return to PART1 or PART2. 
If R15 does not equal zero and 
KEYWORD=FROMAREA and 
KEYWORD=KEYRANGE is 
indicated in PCL, issue message 
DLZ609I. 


Figure 
244.1 


or 
244.7 


If R15 does not equal zero and invalid 
operand for KEYWORD is indicated 
in PCL, issue message DLZ6101. 


DLZPRPAR - Parameter Analysis 


Routine Label Extended Description 


Extended Description 


If R15 does not equal zero and more 
than ten ranges are indicated in PCL, 
issue message DLZ6111. 


DOLZPRPAR 


Label Extended Description 








OUTPUT 


OLZPRPAR 


Routine 


Label 
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Figure 2-44.9. Scan Control (DLZPRSCC) Figure 2-44.10. Update Prefix (DLZPRUPD) 
INPUT PROCESS o=snece=eee OUTPUT INPUT Figure PROCESS OUTPUT 
Figure 2-44.7 
2-44.7 
COMAREA 


FCB he a —_— —— 


lec | index portion of data base. 


COMAREA 1. If index only to be updated, go process 


1. Initialize workfile 2 and workfile 5 with 
put request. 


= ' 2. Process data portion of data base first. 


COMAREA . 2. !f SCAN required, get data base segment. eee, 
COMAREA 
—-——-—p 3. Read data work records from workfiles. 
———. . 


| 


FCB 
XWR 


.3. If ‘T’ type record, format an index work fs 
record (“XWR’). 


Ee 


4. Process data work records and log 


SGT = 
=a COMARES ab changes until all are processed. 


l 


















| | manager 
XWR ss c— 5. Read index work records from workfile 
9. 
C__] 4. If action required, format a data work DWR | 
C] record (‘DWR’). aa erates | 
(==) FCB | 
COMAREA Work file (al Work file 
— es | = 
DWR | 
a f- — 75. Ifno more actions for this segment, get COMAREA | 
| next segment. bas | 
aes | Sula —|5— » 6. Process index work records until all 
S : ‘ 7 are processed. 
C__] | [. 36. Continue processing until end of data. Cid | P 
| C. 7. Close all workfiles and return to 
ACT | PART2 control. 
C44 = 
| DL/I services Figure 
COMAREA J 2-44.7 
_ Prefix. - P 
7. Return to PART2 control. DLZPRUPD — Update Prefix DLZPRUPD 
Extended Description Routine Label Extended Description Routine Label 
Figure 
244.7 
1, PROCINDX 
DLZPRSCC - Scan Control DLZPRSCC 
2. PROCDATA 
Extended Description Routine Label Extended Description Routine Label 3. Workfile 7, Workfile 3. DLZPRWFM 


4. If error, issue message DLZ650I or ASMTDLI 
DLZ6531. DLZPRDLI 


If bad return from DL/I, issue 
DLZPRERR 


message DLZ6531. 


6. If error, issue message DLZ6591 or ASMTDLI 


If error, issue message 


DLZPR653I. DLZ653I. 
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Figure 2-44.11. Sort Control (DLZPRSTC) (Part 1 of 2) 
INPUT PROCESS OUTPUT 


Figure 
244.7 


COMAREA SORT1 PLIST 


| "1. Move user options to the SORT 
parameter list. 


COMAREA 
2. If SORT1 is required, call SORT with 


ae 
FCB data work records from reload and scan 
residing on workfile 2. 
SORT1 PLIST 
OPTIONS 
emp = 
=m DLZPRWFM 
Work File 
. manager 
COMAREA 
COMAREA 
7 
Se 






FCB 3. If SORT2 is required, call SORT with il 


data records from reload and SORT1 
residing on workfile 3. 

SORT 

| 
Work file 
manager 
COMAREA 
4. If SORTS is required, call SORT with 


index word records from reload residing 
on workfile 4 and from scan residing 
on workfile 5. 


SORT2 PLIST 


tJ 






COMAREA 


C_) 
Saas 


SORT3 PLIST 





SORT 


DLZPRWFM 


Work file 
manager 


TI 
: 






DLZPRSTC — Sort Control DLZPRSTG 


Extended Description Routine Label Extended Description Routine 


2,3,4 Iferror, issue message DLZ647I. | DLZPRERR 


2. SORTIREQ 


3. SORT1 and SORT2 process data work 
records exclusively. Input to SORTI is 
from reload and scan, and input for 
SORT2 is from reload and SORT1. 


Together these routines save the new 
RBA of the segment moved in the 
associated work records and arrange 
them in physical sequence as they exist 
in the data bases. 














Figure 2-44.11. Sort Control (DLZPRSTC) (Part 2 of 2) ; 
INPUT PROCESS 


index records from SORTS residing 
on workfile 8 and from the DL/I index 
maintenance file residing on workfile 


SORT4 PLIST 6. 





ep 2 


DLZPRWFM 


Work file 
manager 





6. Return to PART2 control. 


DLZPRSTC — Sort Control 


LExtended Description Routine Label Extended Description 


4. SORT3REQ 


5. If error, issue message DLZ6471, DLZPRERR 
DLZ6481, or DLZ6491. SORT3 and SORT4REQ 
SORT4 process index work records 
exclusively. Input to SORTS is from 
reload and scan, and input to SORT4 
is from the DL/I index maintenance 
file and SORT3. Together these 
routines eliminate index work records 
that are not involved in update, con- 
vert the DL/I index maintenance 
records into partial reorganization 
format, and arrange the index work 


records in physical sequence. 





Figure 
244.7 





OUTPUT 
COMAREA 


DLZPRSTC 


Routine 


Label 
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Figure 2-44.12. Unload/Reload Control (DLZPRURC) (Part 1 of 3) Figure 2-44.12. Unload/Reload Control (DLZPRURC) (Part 2 of 3) 
INPUT PROCESS qexsse==neue OUTPUT INPUT PROCESS OUTPUT 


DLZPRCT2 
COMAREA 


1. Open PRWRKF6, if closed, for output Ci 


COMAREA 
4. If HIDAM, initialize the running 


environment for HIDAM. 
using FCB6. 


ASMTDLI 





COMAREA 


2. For HDAM, ensure starting ranges 


a> 
Ag 
[___ J eee 
are in the root addressable area. DLI Services 
omen Figure 2-44.14 
ezeb DLZPRWEM 5. If unload, process segments within 
I 

Ea 


DLZPRDL! 


dt 









Workfile manager specified range. 


Figure 2-44.13 
(== DLZPRDLI 


OLI Services 
Figure 2-44.14 






COMAREA 
COMAREA 





3. If HDAM, initialize the running 
environment for HDAM. 





ASMTDLI 


== ASMTDLI 


DLZPRDLI 


DLZPRWFM 
Workfile Manager 
Figure 2-44.13 


6. If reload, read segment dump 
records, pass them to DLI to 


insert into DB, and update 


Statistics. 
(==) ASMTDLI 


(a=) DLZPRDLI 


DL! Services 
Figure 2-44.14 


omen 
oa, 
ase <p 














RVANVIERBA 


DLI Services 
Figure 2-44.14 






‘DLZPRURC — Unload/Reload Control DLZPRURC 
i ipti i Descripti Routine Label 
Extended Description Routine Label Extended Description Bie aupn ax ideas eis Se caigee 
1. If error, return to caller with return Extended Description Routine Label Extended Description Routine Label 


code greater than zero. 





. DPRWFMIF is the interface routine 


to Workfile Manager (DLZPRWFM). 


When I/O required, checks return 
code and saves the highest code. 


. DPRDLISV is the interface routine 
to DLI Services (DLZPRDLI). On 
return, checks the return code and 
saves the highest code. 


Open data base, set end process values 
in common area, check the RGT, and 


position DB at the beginning of the 
Tange. 


If error, issue message DLZ646I. 











4. DPRDLISV is the interface routine 
to DLI Services (DLZPRDLI). On 
return, checks the return code and 
saves the highest code. 


Opens data base, sets end process 
test values in common area, and 
positions DB at beginning of 
range. 


If error, issue message DLZ6461. 


. Unload segment to dump file, free 
space occupied by each unloaded 
segment, and update the statistics 
information for the unload pro- 
cessing. 

DPRDLERR is the interface 
routine to error message writer 
(DLZPRERR). 


If error, issue message DLZ6531. 





6. DPRDLISV is the interface routine 


to DLI Services (DLZPRDLI). On 
return checks the return code and 
saves the highest code. 


DPRDLERR is the interface routine 
to Error message writer (DLZPRERR). 


If error, issue message DLZ6531. 
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Figure 2-44.12. Unload/Reload Control (DLZPRURC) (Part 3 of 3) 
INPUT PROCESS OUTPUT 





: : : COMAREA 
COMAREA_ F———— —s«7«. lf HIDAMM,, retrieve the index pointer 
segment, update the index with the 
SGT new RBA of the segment reloaded, 
and log changes. 
FCB 
Figure 2-44.14 
R15 
8. Set return code and return to caller. matunncode 
Caller 
‘DLZPRURC — Unload/Reload Control DLZPRURC 
Extended Description Routine Label Extended Description Routine Label 


7. DPRDLISV is the interface module 
to DLI Services (DLZPRDLI). On 
return, checks the return code and 
saves the highest code. 


If error, issue message DLZ6431 or 
DLZ644I. 
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Figure 2-44.13.. Workfile Manager (DLZPRWFM) 


INPUT PROCESS cmmseseneeeee eee 


OUTPUT 





_— 1. If request is not valid, issue message 
DLZ6151. 


2. If GET request, open data set if not 
already open and retrieve record. 


already open and put out record. 


- 
| 

- 3. If PUT request, open data set if not 
| 

= 4. If CLOSE request, issue close. 

| 
| 
focemmsme 


5. If OPEN request, issue open. 


6. Return to caller. 


DLZPRWFM — Workfile Manager DLZPRWFM 
Extended Description Routine Label Extended Description , Routine Label 


1. 


2, 3,4, 5: R7 contains the address of 
the 


he DTF. 
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Figure 2-44.14. DLI Services (DLZPRDLI) (Part 1 of 5) Figure 2-44.14. DLI Services (DLZPRDLI) (Part 2 of 5) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 


Caller 
OMAREA 
5. If request code equals 04, issue 
| = cus = fawn | 
[comcinea | ————— 1. If request code is greater than 16, [a] 
set return code and return to caller. = = seen 
Caller 


COMAREA 


PST 


| 


. If request code equals 05, issue 
COMCIREQ 2. If request code equals 01, get storage byte locate and alter. 


eee 
address of prefix of last segment that 
SaTDATA was retrieved and return to caller. may DLZDBHOO 
PSTDBPCB COMAREA 
DBPCB 
Caller 
DBPCBJCB 
SDB 
3. If request code equal 02, get storage comenes 
DSGA : : ’ | COMAREF _| 
oeore address of an inserted segment and 
return to caller. 
C= 


COMAREA COMAREA 


ui 
| 


7. If request code equals 06, get the (comrusec | LSEG 
RBA of the last segment that was 
retrieved or inserted by DLI. 


Cd 
= 


COMAREA 


HM 












8. If request code equals 07, free space 
CoM that was occupied by a segment that 
AREA : . . 
is to be unloaded if the segment is a 
COMAREA HIDAM root with no PTB pointer, 
Caller relink the twin chain from the RAP. 
PST COMAREA 
3 
PST COMAREA 
9. If request code equals 08, find the COMFWRKS | 
DM non-zero root anchor point beginning COMFWAKa | 
COMAREA SaaneR a at a given block number and retrieve 
a 4. If request code equals 03, issue block the first root segment chained from it. 
ScD locate. 
es COMAREA 3 
em) 0120010 er 
DBT 
DLZPRDLI — DL! Services DLZPRDLI fe 
Extended Description Routine Label Extended Description Routine Label DLZPRDL!I — DL Services DLZPRDLI 
2. A ‘GU’ or ‘GNP’ call must be the last | Extended Description Routine Label Extended Description Routine Label 
regular call to DLI before making this 
request. 
5. If error, issue message DLZ636I or 
. The call to DLI immediately preced- DLZ6151 and branch to SCD ABEND 
ing this call must have been an ‘ISRT’ routine. 
call to the primary DB. 
. If error, issue message DLZ6361 or DLZPRERR 
. If error, issue message DLZ6361 DLZ615I and branch to SCD ABEND 
or DLZ615I and branch to SCD routine. 
ABEND routine. 
A . Last call to DLI must have been a 
2 ‘GU’ or ‘GN’ for the prime DB. 
ge. 
s 
N If error, issue message DLZ655I. 
oO 
= 
S 
© 
Qa 
io) 
Loar) 
oe) 
Ss 
@ 
ry 
. 
io) 
=} 


18% —-7 
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Figure 2-44.14. DLI Services (DLZPRDLI) (Part 3 of 5) 


INPUT PROCESS suueeueeuueeeeeEEeE 


COMAREA 
10. If request code equals 09, log data 


ve before change. 


=m DLZRDBLO 


11. If request code equals 0A, log data 
after change.. 


eee DLZRDBLO 





PST 


I 


12. If request code equals OC, compress 


COMAREA segment processing. 


buffer altered. 


=) DLZRDBLO 


14. If request code equals OE, update the 
PST current range limits. 


bail 


COMAREA 


| 


COMAREA 


=| | 
————— 13. If request code equals OD, mark index 
ee ee 


; 


( 


DSG 


I 


OMBACBXT 





DLZPRDLI — DLI Services 
Extended Description Routine Label 


10. Request must follow request type 
01 (get prefix address) or request 
type 05 (byte locate and mark 
buffer altered) or request type 16 
(retrieve index by key). 


. Request must follow request type 09. 
No intervening calls to DLI via the 
language interface or to DLZPRDLI 
are permitted. 


. Processing is done by the compression 
routine. 


. If error, issue message DLZ6361 or 
DLZ615I and branch to SCD 
ABEND routine. 


. For each segment to be unloaded, 
determine if it extends the range of 
blocks being unloaded. If it does, 
perform this processing step. 





Extended Description 





OUTPUT 


COMAREA 


COMFWRK1 


COMAREA 


COMAREA 


COMFWRK1 


DLZPRDLI 


Routine Label 





Figure 2-44.14. DLI Services (DLZPRDLI) (Part 4 of 5) 
INPUT PROCESS 


‘ 


COMAREA fg 15. If request code equals OF, get 
‘EOD’ address. 





DBT 


| 


JCB 


SDB 


cae) 


16. If request code equals 10, move 
addresses of DLI blocks and 
routines to system data areas and 
set special DLI conditions. 


dame ASMTDLI 


DSG 


OMBACBXT 


COMAREA 


17. If request code equals 11, initialize 
before unloading a range. 
COMAREA 
JCB 
DBT 
18, If request code equals 12, initialize 
aa 


pea 
a 


lil 


after unloading a range. 


hil 





COMAREA 


I 


19. If request code equals 13, initialize 
DBT before reloading a range. 


hil 


DBPCB 


I 


JCB 


DMBACBX 





l 


DLZPRDLI — DLI Services 


Extended Description Routine Label Extended Description 


DLI control block addresses 
are acquired by a GSCD call. 


If error, issue message 
DLZ651I 








OUTPUT 
ENDRAASV 


COMAREA 


JCB 


JCBCODE 


SPB 


DLZPRDLI 


Routine 





Label 
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Figure 2-44.14. DLI Services (DLZPRDLI) (Part 5 of 5) 


INPUT PROCESS 


COMAREA 


SDB 


DBT 


l 


OBPCB 


| 


JCB 


DMBACBX 


| 


CURRAP 


l 


COMAREA 


JUL 


COMAREA 


scD 





| 


23. 


DLZPRDLI — DLI Services 


Extended Description Routine 


First call for each range 
must be preceded by 
request 08 for first block 
and anchor point. 


If error, issue message DLZ6361 
or DLZ615I and branch to SCD 
ABEND routine. 


Ee 20. 
| 21. 
a 


22. 


OUTPUT 
If request code equals 14, = 
r ia 
initialize after reloading a range. | 
CURRAP 
If request code equals 15, set 
HDAM root anchor point to oe 
zero after all roots chained from 
it have been unloaded. 
(ma DLZRDLBO 
COMAREA 


If request code equals 16, retrieve 
index record by key. 


== DLZRDLBO 


Return to caller 





DLZPROL! 


Label Extended Description Routine 





Label 
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Figure 2-44.15. Statistical Writer (DLZPRSTW) 


INPUT PROCESS eu eee EEE OUTPUT 


Calier 


COMAREA 


FCB 


1. Initialize SYSPRT for PUT request. 



















COMAREA 
aS, 2. If unload is calling function, move 
sub-header to COMAREA. 
(am) 
Work file 
: : : COMAREA 
tS 3. If scan is calling function, move sub-header 
to COMAREA and create scan report. 
manager 
COMAREA ARE 
C._] ——— 4. In not scan and unload, move sub-header ae 
aan to COMAREA, create reload statistics 
aa report and reload range report. 
em 
manager 
5. Return to caller. 
Caller 
DLZPRSTW — Statistical Writer DLZPRSTW 
Extended Description Routine Label Extended Description Routine Label 


2. Create unload statistics report, unload| DLZPRWFM 
range report, unload distribution 
report and return to mainline 











Figure 2-44.16. Error Message Writer (DLZPRERR) 


INPUT 


COMAREA 


COMAMSGN 


MSGTBLE 





MSGTBLE 


MscvaR = [-~————. 4. Move message found to message buffer. 


MSGTBLE 


DLZPRERR — Error Message Writer 


Extended Description 


Caller 





PROCESS OUTPUT ms 


1. Open SYSPRINT. 


2. Locate message to be printed in the 


message table. MSGBUF 
M 
3. If message is not found, issue dummy 


message. 
MSGBUF 


Message found 





TI Variable data 


5. If variable data, move to message buffer. 


6. Print message and close SYSPRINT. 
7. If ABEND is required, issue JDUMP. 


8. Return to caller. 


Caller 


DLZPRERR 


Routine Label Extended Description Routine Label 


processing. 
4. If error, issue message DLZ6421I. DLZPRERR 
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Figure 2-45.1. HLPI (PL/I! Online Control Flow-CICS/VS) 


CICS/VS Program Control Program User Application Program 






DEHPCP © PROCEDURE; 
(EXEC DLI....) 
ence EON fe 
ca 





(EXEC CICS RETURN) 2 





DFHPLII (CICS EXEC STUB) 


DLZEI01 
DLZEI02 
DFHEIO1 





CICS/VS EXEC Interface Program 







DFHEIP 


DL/I Facility 







DLZEIPOO CSECT 
DLZEIPI 






DL/I 
Command 





(Convert HLPI Call to DL/I Call) 


End of 
Call Group 


(Handle Errors) 


BR 14 
DLZPRHOO 


(Process DL/I Call) 











Figure 2-45.2. HLPI (COBOL Online Control Flow-CICS/VS) 


CICS/VS Program Control Program User Application Program 












DFHPCP 





(EXEC DLI....) 
DLZEI01 
© ea OEY, hae 





(EXEC CICS RETURN) 





DFHECI (CICS EXEC STUB) 


DLZEI01 
DLZEI02 
DFHEI1 


CICS/VS EXEC Interface Program 


DFHEIP 






DL/I Facility 







DLZEIPOO CSECT 
DLZEIPI 






DL/I 
Command 


(Convert HLPI Call to DL/I Call) 


End of 
Call Group 


(Handle Errors) 


BR 14 
DLZPRHOO 


(Process DL/I Call) 
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Figure 2-45.3. HLPI (PL/I MPS Batch Control Flow) 


Job Control Statements 


// JOB DLIPROG 
® 


e 
// EXEC DLZMPIOO,SIZE= 
DLI ,progname ,PSBname 

® 


r 
User data 





MPS Batch DL/I Facility 
DLZMPIOO CSECT 
: @ 
e 1 
DLZMPRH DS OH 
e 


e 
(Transfer DL/i Call to DL/1 Online ~ 
System for Processing) 

e 


e 
BR 14 


DLZMINIT EQU * 
e 


e 
(Read Parameter Statement) 
e 
e 
(Load User Application Program) 
e 


e 
BALRUSER BALR 14, 15 
e 


e 
DLZMTERM EQu * 
° © 


e 
EOJ SVC 14 








User Application Program 


PROCEDURE; 
@ 
e 


e 
(EXEC DLI....) @ 


Ss 


DLZEIO1 
CALL DLZEIO2 esoes 
e 
e 
e 


RETURN; 


IBMBPJRA (Linkedited With Application) 
PLICAILB 
e 


e 
(PL/I Initialization) 
e 


e 
(Branch to Application) 


DLZLIPLI (Linkedited With Application) 
e 


LL ° 
DLZE101 


DLZEI02 
DFHEIO1 @ 
@ 
(Get addr of DLZEIPBO From A(DLZPRHBO) 
-4 


e 
BR 15 


HLPI Interface Routine (Batch/MPS Batch) 







DLZEIPBO CSECT 
e 


e 
(Handle HLPI INIT Call First Time) 
e 


e 
DLZEIPB1 
e 


e 
(Convert HLPI Call to DL/I Call) 
e 


End of N 
Call Group 


oY 


@ 
(Issue Di_/t Call) 


(Handle Errors) a 
e 


@ 
BR 14 








Figure 2-45.4. HLP! (COBOL MPS Batch Control Flow) 


Job Control Statements 


// JOB DLIPROG 
e 


e 
// EXEC DLZMPIOO,SIZE= 
DLI ,progname,PSBname 

e 


e 
User data 
e 





MPS Batch DL/I Facility 
DLZMPIOO CSECT 
e 


e 
DLZMPRH DS OH 
e 


r) 
(Transfer DL/I Call to DL/I Online 
System for Processing) 

rs 


e 
BR 14 
DLZMINIT EQU * 
e 


e 
(Read Parameter Statement) 
e 
e 
(Load User Application Program) 
e 
e 
BALRUSER BALR 14, 15 
e 
e@ 


DLZMTERM EQu * 
e 


@ 
EOJ SVC 14 








User Application Program 


ENTRY ‘DLITCBL’ 
e 


e 
(EXEC DLI....) 


ws 


DLZEI01 


cau} DLZEI02 


GOBACK. 


DLZBPJRA (Linkedited With Application) 
ENTRY CBLCALLA 
e 


e 
BALR to ILBDSETO (COBOL ENTRY PT.) 


e 
L 15, = V (DLITCBL) 
BR 15 


DLZLICBL (Linkedited With Application) 
e 
e 

DLZE101 

DLZEI02 


DOFHEI 
e 


- @ 
(Get aga of DLZEIPBO From A(DLZPRHBO) 
-4 


HLPI Interface Routine (Batch/MPS Batch) 
DLZEIPBO CSECT 
e 


° 
(Handle HLPI INIT Call First Time) 
e 


DLZEIPB1 
e 


e 
(Convert HLPI Call to DL/I Call) 
@ 


End of 
Call Group 


eY 


e 
(Issue DL/! Call) 
(Handle Errors) 
e 


® 
BR 14 








Wal J0 Aprodoig—fepioseyy] posuacr] 





Z u01}99¢ 


HeredO Jo poyyey 


uol 


L87@-7Z 





Figure 2-45.5. HLPI (PL/I Batch Control Flow) 


Job Control Statements 





// JOB DLIPROG 
e 





e 
// EXEC DLZRRCOO,SIZE = 
DLI,progname ,PSBname, buffers 
e 






e 
User data 





Batch DL/I Initialization 


DLZRRCOO CSECT 
e 
e 


(Read Parameter Statement) 
e@ 


e 
DLZRRC10 CSECT 


e 
e 
(Load DL/I Facility) 
e 
e 
(Load User Application Program) 
e 


e 
BALRUSER BALR 14, 15 
e 


e 
EOJ SVC 14 





DL/I! Facility (DLZBNUCO and Action Modules) 


SCDCSECT CSECT 


DLZPRHBO DS 0H 
e 


e 
(Process DL/! Call) 
e 


e 
BR 14 








User Application Program 


PROCEDURE; 
e 
e 


e 
(EXEC DLI....) 


ws 


DLZE101 
CALL { OLZEIO2 2: : -- 
DFHEIO1 


IBMBPJRA (Linkedited With Application) 
PLICALLB 

e 

e 


(PL/I Initialization) 
e 


e 
(Branch to Application) 


DLZLIPLI (Linkedited With Application) 
DLZLIPLI 
e 
e 
DLZEI01 
DLZEI02 


e 
(Get addr of DLZEIPBO From A(DLZPRHBO) 
-4 


® 
BR 15 


HLPI Interface Routine (Batch/MPS Batch) 


DLZEIPBO CSECT 
e 


e 
(Handle HLP! INIT Call First Time) 
e 


e 
DLZEIPB1 
® 


e 
(Convert HLPI Call to DL/I Call) 


e 
(Issue DL/I Call) 


(Handle Errors) 
e 


e 
BR 14 











Figure 2-45.6. HLPI (COBOL Batch Control Flow) 


Job Control Statements User Application Program 





LIPROG 
. we " ENTRY ‘DLITCBL’ 







// EXEC DLZRRCOO, SIZE= 
DLI, progname, PSBname, buffers 






(EXEC DLI....) 


- 


DLZEIO1 
CALL¢ DLZEI02>.-.-.-.- 
DFHEI1 





User data @ 






/* 
/& 









Batch DL/I Initialization 


DLZRRCOO CSECT 

(Read Parameter Statement) 
DLZRRC10 CSECT 

(Load DL/I Facility) 

( Load User Application Program) 


GOBACK . 







DLZBPJRA (Linkedited With Application) 
ENTRY CBL CALLA 






BALR to ILBDSETO (COBOL ENTRY POINT) 





L 15,=V(DLITCBL) 
BR 15 









DLZLICBL (Linkedited With Application) 





BALRUSER BALR 14, 15 





DLZEIO1 
DLZEt02 





EOJ SVC 14 





(Get Addr of DLZEIPBO from A(DLZPRHBO) -4) 





BR 15 







DL/I Facility (DLZBNUCO + Action Modules) 


© 









HLPI Interface Routine (Batch/MPS Batch) 












SCDCSECT CSECT 
DLZPRHBO DS OH 






DLZEIPBO CSECT 


. (Handie HLP! INIT Call First Time) 
(Process DL/I Call) : 


. DLZEIPB1 
BR 14 . 


(Convert HLPI Call to DL/I Call) 










End of 
Call Group 











-Y 
(Issue DL/I Call 






(Handle Errors) 







BR 14 
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Figure 2-46.1. DL/I Batch/MPS EXEC Interface (Initialization Routine) (DLZEIPBO) Figure 2-46.2. DL/I Batch/MPS EXEC Interface (Control Block Initialization) (DLZEIPBO) 








N 
| INPUT PROCESS spemmecormeceeee eee OUTPUT INPUT PROCESS OUTPUT 
NO 
fora) DLZHLPIL 1. If system DIB is available, go to Step 1, 
-0O Figure 2-46.3. 
—— & 1. Get address of EXEC DL/I argument RO 
S) list. 2. Calculate storage required for system [ 
= DLZHLPIL OE 
pa 3. Acquire storage for the system DIB 
. > 2. Get address of user DIB. » Acq ge sy . 
A Location 20 : 4. If storage request is unsuccessful, go to 
: MREG address. ——- > : ’ 
2 lcomneGA [> 3 Get CO ane ees Step 1, Figure 2-46.5. Soo 
- — — 4. Get address of DL/I t 
a, 4. Get address 0 program reques 
C handler. 5. Save system DIB address. 
%. DLZSDIB 
2 5. Get address of E1P parameter list. 
S DLZEIPL 6. Initialize system DIB with DIB ID. 
5 _ ————*> 6. Get address of system DIB. Soci: Sapa 
a 7. Save PCB address list in system DIB. 
5 7. Go to Step 1, Control Block 
5 Initialization. 
DLZSDIB 
ng 8. Calcul ber of PCBs and s: 
Ww Figure . Calculate number o sand save DIBNOPCB 
2-46.2 count in system DIB. - 
RO 
9. Calculate storage required for the path 
header control blocks. 
10. Acquire storage for path header 
control blocks. 
R15 : 
aes ——-p = 11. If storage request is unsuccessful, go to 
Step 1, 2-46.5. 
DLZSDIB 
12. Save address of path header control DIBPATHP 
blocks in system DIB. 
DLZEIPBO — DL/I Batch/MPS EXEC Interface (Initialization Routine) DLZEIPBO ; DLZARGO DLZEIPL 
; ——-p 13. Set PL/I indicator if application 
Extended Description Routine Label Extended Description Routine Label DrOuraen is weltten in Sk [erpriac |}: 
1. Address of the HLPI parameter list is 
passed to this program in register I. 
Figure 
5. Address of the EIP parameter list is 2-46.3 
located 4 bytes in front of entry 
point for the DL/I program request DLZEIPBO - DL/I Batch/MPS EXEC Interface (Control Block Initialization) DLZEIPBO 
handler. 
Extended Description Routine Label Extended Description Routine Label 


3. VSE GETVIS issued. EIPSTART . VSE GETVIS issued. 
. Return code is in register 15. . Return code is in register 15. 


. Acquired storage address is returned - Required storage address is 
in register 1. returned in register 1. 


. Scan is made down the PCB list. - Bit APPLPLI is set in field 
ARGOFLG3. 
. Number of PCBs X length of one 
path header control block. 
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Figure 2-46.3. DL/! Batch/MPS EXEC Interface (Call Determination Routine) (DLZEIPBO) 
INPUT PROCESS 


OLZSDIB 


1. If system DIB is destroyed, go to Step 
1, Figure 2-46.4. 


DIBID = 


DLZARGO 


2. If current call is not an initialization 
call, go to Step 1, Figure 2-46.7. 


ARGOFNCD —— gS 


3. Save current user DIB in system DIB. 


R13 


> 4. Restore caller's registers. 


5. Return to caller. 


Caller 


DLZEIPBO — DL/I Batch/MPS EXEC Interface (Cal! Determination Routine) 


Extended Description Routine Label Extended Description 






1. The first eight bytes of the system 
DIB are checked for ‘DLZSDIB’. 


Z woes 


1ye139dQ jo poy 


UOT 


680 —¢ 





DLZEIPBO 





C) 


y 





Figure 2-46.4. DL/I Batch/MPS EXEC Interface (ABEND Routine) (DLZEIPBO) 


OUTPUT INPUT 
DLZARGO 
a 
DLZSDIB 


DIBLUDIB 


DLZEIPL 


Routine Extended Description Routine Label 





DLZEIPBO — DL/I Batch/MPS EXEC Interface (ABEND Routine) 


PROCESS OUTPUT 


a: | aT, —= 1. Set up parameter list for message DLZ0371. 


R13 
2. Set Register 13 with register save area 
address. 


3. Get address of DL/I message module. 
i. 


4. Call DL/I message module to issue 
message. 


5. Get address of DL/I ABEND module. ae 
aT | Tp — 


6. Exit DL/I ABEND module to abnormally 
terminate the task. 


BR R15 


DLZEIPBO 
Extended Description Routine Label 


DIBABEND 


of the message number, status code 
‘TN’, and failing statement number. 


1. Message parameter list is composed 
: ERRORMSG 
DLZMMSGX 
; DLZABEND 
DLZMABNX 
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Figure 2-46.5. DL/I Batch/MPS EXEC Interface (Storage Failure Routine) (DLZEIPBO) 
INPUT PROCESS sues OUTPUT 


1. Set failing macro ID in message para- 
meter list. 


R15 
| “> 2. Get return code passback. 


3. Translate the return code to printable 
characters. 


4. Set translated return code in message 
parameter list. 


5. Set message number in parameter 


list for DLZO38I. 
Step 2, 
2-444 
DLZEIPBO — DL/I Batch/MPS EXEC Interface (Storage Failure Routine) DLZEIPBO 
Extended Description Routine Label Extended Description Routine Label 


1. Failure on GETVIS. 
2. 








Figure 2-46.6. DL/I Batch/MPS EXEC Interface (Load Failure Routine) (DLZEIPBO) 


INPUT PROCESS 
R15 


— — —.— 1. If return code is not PHASE NOT 
FOUND, go to Step 3. 


2. Set up to issue message DLZ0111. 


3. Set failing macro ID in message 
parameter list for DLZO38I. 


DLZEIPBO — DL/I Batch/MPS EXEC interface (Load Failure Routine) 


Extended Description Routine Label 


1. PHASE NOT FOUND return 
code = X‘14 


3. Failure on CDLOAD. 





Extended Description 


Step 2, 


2444 


Step 2, 


2-44.5 


OUTPUT 


Ri 


a ) 


DLZEIPBO 


Routine 





Label 
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Figure 2-46.7. DL/! Batch/MPS EXEC Interface (DLZEIPB1 Exit Routine) (DLZEIPBO) 
PROCESS 


INPUT 


DLZSDIB 


DIBEIPAD =_—_ 


1. If DLZEIPB1 is already in storage, go to 
Step 6. 


2. Get address of module DLZEIPB1 
name. 


3. Load module DLZEIPB1. 


4. If failure on load, go to Step 1, 
Figure 2-46.6. 


5. Save entry point address for DLZEIPB1. 


6. Restore caller's register save area 
pointer. 


DLZEIPBO - DL/I Batch/MPS EXEC Interface (DLZEIPB1 Exit Routine) 


Extended Description 


1. 
2. 
3. VSE CDLOAD issued. 





5. Entry point address of DLZEIPB1 
returned in register 1. 


6. Control will be returned directly to 
the caller by DLZEIPB1. 


Z uoK90g 


elodO jo poy 


uo! 


16¢—- 7c 





Routine Label Extended Description 





OUTPUT 


i 


DLZSDIB 


DIBEIPAD 


R13 


| 


Exit to 
DLZEIPB1 


DLZEIPBO 


Routine Label 
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INPUT PROCESS 


1. Call Determination Routine. 
(See Figure 2-47.1) 


C67 — 7 


2. PCB Processing Routine. 
(See Figure 2-47.2) 


3. Segment Length Verification. 
(See Figure 2-47.3) 


4. Segment/Offset Length Verification. 
(See Figure 2-47.4) 


5. Replace/Get Path Processing. 
(See Figure 2-47.5) 


6. Acquire SSA Storage. 
(See Figure 2-47.6) 


7. Load Call Check Routine. 
(See Figure 2-47.7) 


8. Command Code Processing. 
(See Figure 2-47.8) 


9. Field Qualification Routine. 
(See Figure 2-47.9) 


Z OUINJOA ‘Jenuep 1807] SA/SOC I/1d 


10. SSA Appendage Processing. 
(See Figure 2-47.10) 


11. Calculate IOAREA Size. 
(See Figure 2-47.11) 


12. Single IOAREA Processing. 
(See Figure 2-47.12) 





DLZEIPBI — DL/I Batch/MPS EXEC Interface 


t Extended Description Routine Label Extended Description 


t 
i 
Bil 
\ 
i 





Figure 2-47. DL/i Batch/MPS EXEC Interface (Overview) (DLZEIPB1) (Part 1 of 2) 





DLZEIPB1. — DL/I Batch/MPS EXEC Interface 


Extended Description 








13. 
14. 
15. 
16. 


17. 


Figure 2-47. DL/1I Batch/MPS EXEC Interface (Overview) (DLZEIPB1) (Part 2 of 2) 
PROCESS 





Path Segment Length Verification. 
(See Figure 2-47.13) 


Get EIP Common IOAREA. 
(See Figure 2-47.14) 


Build EIP Common IOAREA. 
(See Figure 2-47.15) 


SCHD, TERM, and CHKP Processing. 
(See Figure 2-47.16) 


DL/I Program Request Handler 
Interface. 
(See Figure 2-47.17) 


. DL/I Return Interface. 


(See Figure 2-47.18) 


. Get Path Call Processing. 
(See Figure 2-47.19) 


. Variable Length Segment Check. 


(See Figure 2-47.20) 


- ABEND Routine. 





(See Figure 2-47.21) 


. Storage Management Error Routine. 


(See Figure 2-47.22) 


Routine _Label Extended Description 


OUTPUT 


DLZEIPB1 


Routine 


Label 
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Figure 2-47.1. Call Determination Routine (DLZEIPB1) 
PROCESS 


INPUT 


Caller 


1. 


R1 R13 
nae | a 


DLZHLPIL 


HLPIDIBP 


DLZARGO 


ARGOFNCD 


DLZARGO 


ARGORELN 


DLZARGO 


ARGOCCOD 


DLZARGO 
ARGOOPT1 


DLZEIPB1 - DL/! Batch/MPS EXEC Interface 


Extended Description 


User DIB set to binary zeroes 


except for verison. 


Data base calls as defined here are 


get, insert, replace, delete, 
load. 


and 


|_| 


Routine Label 


10. 


Initialize task register. 


Save HLPI parameter list pointer and 
caller’s register save area address. 


Get address of user DIB and save it in 
system DIB. 


Clear user DIB. 


Set address of DL/! parameter count in 
DL/I call parameter list. 


If not a data base call, go to Step 1, 
Figure 2-47.16, 


If not first HLPI internal call, go to 
Step 1, Figure 2-47.3. 


lf IOAREA specified for this call, go to 
Step 1, Figure 2-47.2. 


Set user DIB with AB status code. 


Set KEY FEEDBACK if specified. 


Figure 
247 
Step 22 


OUTPUT 


DLZSDIB 


DIBHLPIA 


| DIBRBKWD | 





DLZSDIB 


DIBLUDIB 


DLZSDIB 


DIBCNTAD 


DLZDIB 


DIBSTAT 


DLZSDIB 


DIBFLAG 


DIBKFBAA 





DLZEIPB1 


Extended Description 


DLZEIPO 
GETFNCA 


The first call for an EXEC DLI 
statement passed is actually the 


to the first internal call within one 
EXEC DLI. 


Bit CCINFROM on in byte 
ARGOCCOD. 


AB status code=statement IOAREA 
required for object segment. 


call for the object statement. Refers 


Routine Label 











Figure 2-47.2. PCB Processing Routine (DLZEIPB1) 








INPUT 2474 PROCESS OUTPUT 
ep 1. Reset key feedback flags and area/ —— 
length fields. DIBKFBAA 
DIBKFBLL 
DLZARGO 
———-> 2. If key feedback is not requested go to 
Step 8. 
3. Set key feedback flag. SS 
FHLPIKFBA 4. Save user key feedback area address. 
faRcoopT? =— a o's". If key feedback length is not provided, 
go to Step 8. 
Pn | Oak FBLL 
oe 7. Save user key feedback area length. 
HuPIKFeL or 
8. Reset necessary fields in system DIB. 
DIBPATHC 
DLZHLPIL 
HLPIPCBI — —" 3” 9. Get PCB number specified for this call. fom 
10. if PCB number is zero, negative value, 
or greater than the number of PCB for 
the PSB, set TP status code and go to 
Step 1, Figure 2-47.21. 
DLZSDIB 
11. Save current PCB number in system 
DIB. 
12. Get PCB address for this call. eer 
13. Store PCB address in DL/I call SIGERENO 
parameter list. 
DLZSDIB 
14. Update DL/I call parameter count to 
include the function call and PCB 
address. 
DLZEIPB1 - DL/I Batch/MPS EXEC Interface A le DLZEIPB1 
Step 3 
t €xtended Description Routine Label Extended Description Routine Label 


Bit 1 in ARGOOPT1 is set by the 
CICS/VS translator to indicate 
KEYFEEDBACK. 


Bit 0 in ARGOOPT1 is set by the 
CICS/VS translator to indicate 
FEEDBACKLEN. 





On the first HLPI call for each EXEC 
DLI statement the path count, cur- 
rent required IOAREA size, the DL/I 


parameter count are set to binary 
zeroes and the DL/I function-call is 
set in the DL/I call parameter list. 


Using the PCB number, index into 
the PCB list for the current PCB 
address. 


FRSTIOOK 
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Figure 2-47.3. Segment Length Verification (DLZEIPB1) 


INPUT PROCESS sx e==EEI EEE OUTPUT 


247.2 
DLZARGO 


a 1. If data is not to be transferred, go to 


Step 22, Figure 2-47.4. 


DLZSDIB 
2. Update data transfer count and save in 


the system DIB. 





DLZARGO 
rat 3. If this is a variable length segment, go to 
Step 1, Figure 2-47.4. 
DLZARGO 
— 4. If segment length not specified, go to 
Step 22, Figure 2-47.4. 
DLZHLPIL 
— yp 5. Get segment length. 
6. If segment length is zero or a negative 
value, set V2 status code. Go to Step 1, 
Figure 2-47.21. 
Figure 
2-474 
Step 19 
DLZEIPB1 - DL/! Batch/MPS EXEC interface DLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


. Bit CCINFROM on in byte ARGOCCOD. 


. A count is kept for each call that has 
requested data transfer for the EXEC 
DLI statement. . 


. Bit OPTVAR on in byte ARGOSOPT. 


. Bit OPTSEGL on in byte ARGOSOPT. FXSGSIZE 


. Field HLPILIOA contains a pointer 
to the segment length. 
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Figure 2-47.4. Segment/Offset Length Verification (DLZEIPB1) (Part 1 of 3) 
INPUT PROCESS 


2.47.3 
DLZHLPIL 


Get address of the segment IOAREA 
address. 


DLZARGO 


ARGOSOPT 


DLZHLPIL 


| HLPISIOA | 
| ARGOSOPT| 
|_ARGOSOPT | 


eee ete 1. 
[ ‘i 
a Thc 
. 4. If offset value is zero or a negative value, 
set up V5 status code and go to Step 1, 
Figure 2-47.21. 

> 5. 
> 6, 
7. 


If offset is not specified, go to Step 13. 


DLZARGO 


ARGOSOPT 


DLZHLPIL 


HLPILIOA 


If maximum statement length is not 
specified, go to Step 11. 


Get maximum segment length. 


If maximum segment length is zero or a 
negative value, set V2 status code and go 
to Step 1, Figure 2-47.21. 


8. if offset value is greater than segment 
length, set V5 status code and to to Step 
1, Figure 2-47.21. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine Label Extended 


VRSGSIZE 


Bit OPTOFF not on in byte 
ARGOSOPT. 


Field HLPIOFST contains a pointer 
to the OFFSET value. This value is 
the length of the concatenated key 
plus the length of the intersection 
data (If any). 


Field HLPILIOA contains a pointer 
to the segment length. 





Figure 2-47.4. Segment/Offset Length Verification (DLZEIPB1) (Part 2 of 3) 


OUTPUT INPUT PROCESS 
DLZARGO 
———b 29. If this is not a get call, go to Step 12. 
10. Get segment length and go to Step 19. 
ARGOFNCD — — 5 11. If this is a get call, set V2 status code 
and go to Step 1, Figure 2-47.21. 
12. Compute length of the segment and go 
to Step 15. 
DLZARGO 


——-—p 13. If this is a get call, go to Step 4, 
Figure 2-47.3. 


14. Get length of variable length segment. 


15. If segment length is greater than the 
maximum length supported, set V4 
status code and go to Step 1, 


Figure 2-47.21. 
DLZARGO 
—-—-p 16. If maximum segment length is not 
specified on HLPI call, go to Step 19. 
DLZHLPIL 
a“, 17. Get maximum segment length. 


18. If segment length specified in IOAREA 
is greater than maximum segment length, 
set V4 status code and go to Step 1, 
Figure 2-47.21. 
DLZEIPB1 


DLZEIPB1 — DL/t Batch/MPS EXEC Interface 
Routine Label 


Extended Description Routine Label Extended Description 


. This check is made for all get type 
call GN, GU, and GNP. 


VGETCALL 


. This length includes the concatenated 
key, intersection data, and the segment. 


VRSGCON 


. This length is in the first two bytes of 
the segment IOAREA. 


. Bit OPTSEGL not on in field 
ARGOSOPT. 


. Field HLPILIOA contains a pointer to 
maximum segment length. 








OUTPUT 


OLZEIPBI 


Routine 


Label 
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Figure 2-47.4. Segment/Offset Length Verification (DLZEIPB1) (Part 3 of 3) 
INPUT PROCESS OUTPUT 


OLZSDIB 


[bese | 


20. 


21. 


- DLZARGO 


ARGOSOPT 22. 


DLZARGO 


ARGOFNCD 23. 


OLZHLPIL, -———4 204. 


HLPISIOA 


DLZEIPB1 — DL/I Batch/MPS EXEC Interface 


Get current length required for IOAREA. 


Update current required IOAREA length 
with this segment length. 


DLZSDIB 
Save updated required IOAREA length. 
If segment name is specified go to Step 
1, Figure 2-47.5. 
If call is not a get next type, set AH 
status code and go to Step 1, Figure 
2-47.21. 
DLZSDIB 


Set segment I|OAREA address in DL/I 


call parameter list. DIBPARM3 


Figure 2-47 
Step 5 


, OLZEIPB1 


Extended Description Routine Label Extended Description Routine 


19, 


22. Bit OPTSEGM on in field ARGOSOPT. 








SETSGSIZ 
NOTRMNSF 





Label 





Wal Jo Ayedorg—jeyoseyy] posuaoy] 





Figure 2-47.5. Replace/Get Path Processing (DLZEIPB1) (Part 1 of 3) 
INPUT eer PROCESS OUTPUT 


DLZSDIB 


DIBSSAS 


DIBPATHP 
DIBPCBNO 


1. Do calculations to get the correct path 
header control block for current PCB. 





DLZPATH 
2. Get path SSA appendage pointer. 
3. If path SSA appendage does not exist 
or if previous call was not a get path 
call, go to Step 1, Figure 2-47.6. 
DLZSDIB 
4. Reset get path call indicator in system [DiesrLac_] AG 
DIB. 
DLZARGO 
——-p 5. if this is not a replace call go to Step 
1, Figure 2-47.6. 
DLZARGO 
—_ __ 6. If this is not the first HLPI! call for the 
ARGORELM DLI EXEC statement, go to Step 9. eee 
7. Reset system DIB with previous get [oisencur_] 
path call information. 
DLZEIPB1 — DL/! Batch/MPS EXEC Interface DLZEIPB1 
.Extended Description Routine Label Extended Description Routine Label 


1. Current PCB number-1 x length of the STARTSSA 
path header control block. 


. Bit DIBGPATH set ON in field 
DIBSFLAG. 





. If the previous call was a get path call 
and current call is a replace call and 
this is the first HLPI call for the DLI 
EXEC statement, the SSAs and SSA 
appendages are reconstructed based 
on the get path call. 


Z uonses 


e 
. 





e10dQO Jo pou 


Uor 


L67— 7 











Figure 2-47.5. Replace/Get Path Processing (DLZEIPB1) (Part 2 of 3) 


INPUT 


DLZHLPIL 


DLZSSAX 
SSAXFLAG _-— 
DLZARGO 
ARGOCCOD Ss 
DLZSSAX 
SSAXFLAG 
DLZARGO 
ARGOSOPT pat 


DLZEIPB1 — DL/I Batch/MPS EXEC Interface 


Extended Description 


. SSAs are reconstructed with segment 
name, n command code, and blank 
delimiter. Uses SSA extension. 


. HLPISEGN contains a pointer to the 
segment name. 


. Bit SSAXPROC not set in field 
SSAXFLAG. 


. Bit SSAXPROC set ON in field 
SSAXFLAG. This is done to ensure 


duplicate segment names are not 
specified in current call. 


. Bit CCINFROM not on in field 
ARGOCCON. 


. Bit SSAXDATT not on in field 
SSAXFLAG. 


. Bit OPTVAR not on in field 
ARGOSOPT. 


DLZSSAP 
DLZSSAX 
HLPISEGN a 


AL 


Routine Label 





PROCESS 


8. Reconstruct the SSAs and SSA 
appendages for the get path call. 


9. Get current HLPI call segment name. 


10. If segment name does not exist in the 
reconstructed SSAs, go to Step 21. 


11. If SSA entry was previously processed, 
set AC status code and go to Step 1, 
Figure 2-47.21. 


12. Set SSA processed indicator. 


13. If path is not to be transferred for 
this call, go to Step 1, Figure 2-47.12. 


14. If data was not transferred on previous 
get path call, go to Step 21. 


15. If current segment is not variable 
length, go to Step 18. 


Extended Description 





OUTPUT 
DLZSSA 


DLZSSAX 


DLZSSAX 


[SsAxFLAG ] FLAG 


OLZEIPB1 


Routine 
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Figure 2-47.5. Replace/Get Path Processing (DLZEIPB1) (Part 3 of 3) 





INPUT PROCESS OUTPUT 
DLZSSA 
ees 16. If variable length segment was specified 
on previous get path call, go to Step 1, 
Figure 2-47.8. 
17. Go to Figure 2-47.21. 
18. If variable length segment was specified 
DLZHLPIL on previous call, go to Figure 2-47.21. 
19. Get address of segment length. 
DLZSSA 
aay aeen 20. If replace lengths are equal go to Step 1, 
Figure 2-47.8. DLZDIB 


21. Set TO status code in user DIB. 


22. Go to Step 1, Figure 2-47.21. 


Figure 247 
Step 21 





DLZEIPB1 — DL/I Batch/MPS EXEC interface DLZEIPB1 


Extended Description Routine Label Extended Description Routine Label 


16. 
18. 
19. 


21. 





Bit SSAVARL on in byte SSAFLAG. 


HLPILIOA contains a pointer to the 
segment length. 


Status code ‘TO’ indicates replace/ 
get path calls inconsistent. 











Wal Jo 4zedoig—yepayeyA] posusoy] 





Z U01}995 


Helodo jo poyjo~w 


uol 


667 — 7 





Figure 2-47.6. Acquire SSA Storage (DLZEIPB1) Figure 2-47.7. Load Call Check Routine (DLZEIPB1) 
INPUT PROCESS OUTPUT 


2-475 INPUT PROCESS OUTPUT 


2476 
DLZARGO 


== P 61. ‘If this is not the first call for the EXEC 


Atoka able aker — — —p 1. If this is not a load call, go to Figure 


DLZARGO 


2-47.8. 
DLZARGO 2. Get EIP parameter list address. 
—_— ——& 2. Get the total number of calls in the 
command. sete 3. If this is an MPS environment, set up 
3 OM ‘ ane DIB AD status code and go to Figure 
_ Move the segment name to the user DIB. bao] | ayers 
re aay [orssecw | a | 
. Decrease the calls by one. 
: a ————")> 4. Get address of PCB. 
5. Get the entry point for the SSA. DIBPARM? 
DLZARGO 
——— 6. If there is no qualification on the SSA, DBPCE 
io to Step 8. 
. ss — —-& 5. If PROCOPT not load, set up TP 
status code and go to Step 1, Figure 
DLZHLPIL DLZSSA 2-47.21. DLZSSA 
7————"*> _ 7. Build the SSA with the boolean 6. Move blank delimiter to SSA. 
rn qualification for all fields. 
SSA Extension 
8. Get storage, if necessary, for the 
SSA extension; if not necessary, 
go to Step 10. 
S80 
9. Go to Step 11. ; 
DLZSSAX ; 
10. Check the old SSA size compared to 
the new SSA size. Issue a FREEVIS 
if the new SSA is smaller. 
RO 
TT s«d bm 11. Save the size of the SSA and if error on 
R15 
ae GETVIS, go to Step 1, Figure 2-47.22. | 
DLZSDIB 
R6 R1 DLZEIPB1 — DL/I Batch/MPS EXEC Interface DLZEIPB1 
(oe) ar Save SSA address. { 
DLZHLPIL Lad Lol ‘Extended Description Routine Label Extended Description Routine Label 
DLZSSA 
Move the segment name to the SSA. . Function code not equal to X°18", 
. The EIP parameter list address is 
2477 stored four bytes in front of the 
. entry point of the DLI program 
request handler. 
PCBCHECK 
. PCB processing option must be 
DLZEIPBI1 - DL/I Batch/MPS EXEC Interface DLZEIPB1 L’ or ‘LS’. 
Extended Description Routine Label Extended Description Routine Label 


Relative call number in field : SUBONE 
ARGORELN is one. 


Calculate the length of the SSA. SSASIZNG 


The first HLPI call for the EXEC 
DLI statement is for the object ; SSASIZED 


segment. 


CHKSSASZ 
SUBTWO 
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Figure 2-47.8. Command Code Processing (DLZEIPB1) (Part 1 of 3) 


INPUT PROCESS 
2-475 





lip 1. Set command code indicator in SSA. 


DLZARGO 2. Set for null command code. 


ARGOFNCD -_— 3. If this is not a replace call, go to Step 6. 


DLZARGO 


_— 4. If data to be transferred for this call, go to 


Step 1, 2-47.9. 


5. Set ‘N’ command code in SSA. 


DLZARGO 


ARGOFNCD = 6. If this is not an insert call, go to step 15. 


DLZARGO 


Aes 7. If data is not to be transferred, go to 
Step 9. 


8. Set ‘D’ command code in SSA. 
DLZARGO 


— — > 9. If first was not specified for this call, go 


to Step 12. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine Label Extended Description 


Command code indicator is an CONTSSA 
astrisk (*). 


Null command codes are 
dashes (-). 


Replace call code equals X‘14’. 


Bit CCINFROM on in byte 
ARGOCCOD. 


‘N’ command code indicates that 
this segment is not to be 
replaced. 


Function code is not equal to X‘12’. CKCCISRT 


Bit CCINFROM not on in byte 
ARGOCCOD. 


‘D’ indicates multiple insert path 
call 


Bit CCFIRST not on in byte 
ARGOCCOD. 











OUTPUT 
DLZSSA 


SSAASTRK 


DLZSSA 


SSACMND 


SSACMND 





DLZEIPB1 


Routine Label 





Figure 
2479 
DLZSSA 








Figure 2-47.8. Command Code Processing (DLZEIPB1) (Part 2 of 3) 


INPUT PROCESS OUTPUT 
DLZSSA 
10. Set ‘F’ command code in SSA. 
DLZARGO 11. Go to Step 1, Figure 2-47.9. 


12. If last was not specified, go to Step 1, 
Figure 2-47.9. 


/ 


ARGOFNCD ye 


DLZSSA 


13. Set ‘L’ command code in SSA. 


14. Go to Step 1, Figure 2-47.9. 


DLZARGO 


\l/ 


ARGOFNCD = 


15. If this is not a get call, set up AD 
status code and go to Step 1, Figure 
2-47.21. 


DLZARGO 


ARGOCCOD ———= 


16. If locked not specified, go to Step 18. 


\l/ 


DLZSSA 


17. Move ‘QA’ command code to SSA. 


18. If data is not to be transferred, go to 
Step 21. 


DLZARGO 
ARGOCCOD Say, 


DLZARGO 


\l/ 


19. if this is object segment, go to Step 21. 


\l/ 


ARGORELN ee 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface DLZEIPB1 


Extended Description Routine Label Extended Description Routine Label 


‘F’ indicates start with the first 
occurrance of this segment type 
to satisfy this level of call. 


Bit CCLAST not on is field CKCCLSTI 
ARGOCCOD. 


‘LV’ indicates use last occurance 
of segment type to satisfy this 
level of cail. 


Function code is not in range of 
X‘10’ and X‘0A’. 

Bit CCLOCKED not on in byte 
ARGOCCOD. 


‘QA’ indicates to lock segment(s) 
returned to prevent modification 
by another task. 
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Figure 2-47.8. Command Code Processing (DLZEIPB1) (Part 3 of 3) 





IARGOCCOD — eS 21. 


DLZARGO 


ARGOCCOD ——-— 24. 


25. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine 


uoneisdy Jo poy ‘7 UONDES 


l0e -¢ 


22. 
23. 





INPUT PROCESS OUTPUT 
DLZSSA 
20. Set ‘D’ command code in SSA. 





If first not specified in call, go to Step 24. 


DOLZSSA 





Set ‘F’ command code in SSA. 


Go to Step 1, Figure 2-47.9. 





If last not specified, go to Step 1, 


Figure 2-47.9. 
DLZSSA 
Step 1 
Figure 
2479 
DLZEIPB1 
Extended Description Routine Label 
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Figure 2-47.9. Field Qualification Routine (DLZEIPB1) 


INPUT : PROCESS qe OUTPUT 
2478 


DLZARGO 
Gesd 1. If where is specified, go to Step 4. 


—_—— 
DLZSSA 
2. Set blank delimiter in SSA. 


3. Go to Step 1, Figure 2-47.10. 
DLZSSA 


4. Set left paren in SSA. 


DLZHLPIL DLZSSA 


HLPIFLDN SSAFLDNM 


5. Move field name and relational 
operators into the SSA. 





HLPIOPER 


DLZARGO 


ARGOSOPT 


VJ 
> 


If field length is not specified, set up V3 
status code and go to Step 1, Figure 
2-47.21. 


DLZHLPIL 


HLPIFLDV 
HLPILFLD 


7. Get field values and the value lengths. 





8. If field length is zero or a negative value, 
set up V3 status code and go to Step 1, 





Figure 2-47.21. 
DLZSSA 
* iopanconwarsse eo 


10. Move the right parenthesis into the SSA. 
Figure 
2-47.10 
DLZEIPB1 - DL/I Batch/MPS EXEC interface DLZEIPB1 


Extended Description Routine _Label Extended Description Routine Label 


10. Right paren is delimiter for 


Bit OPTWHERE set on in byte 
qualification of SSA. 


ARGOSOPT. 
Blank indicates unqualified SSA. 
Left paren indicates qualified SSA. 


Field HLPIFLDN has a pointer to 
the field name and HLPIOPER °: 
has a.pointer to the relational 
operators. 


Bit OPTFLDL not on in byte 
ARGOSOPT. 


Field HLPIFLDV is a pointer to the FLDLNOK 
field value and HLPILFLD is a 
pointer to the field value length. 


Loop through the boolean FLDLOOP 
qualifications. 
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Figure 2-47.10. SSA Appendage Processing (DLZEIPB1) (Part 1 of 2) 


INPUT 
247.7 
DLZARGO 
ARGOCCOD —_ —_ PP 
DLZHLPIL 


: HLPISIOA ee 
DLZARGO 
ARGOSOPT } 
DLZHLPIL 
c=) 


HLPIOFST 


DLZARGO 


ARGOFNCD 


DLZEIPBt - DL/I Batch/MPS EXEC Interface 


Extended Description _ Routine 


. Bit CCINFROM not on in byte 
ARGOCCOD. 


. Field HLPISIOA contains the 
address of the segment I/O area. 


. Bit SSADATAT indicates data transfer 
in the SSA appendage. 


. Bit SSAVARL in the SSA appendage 
indicates variable length segment. 


. Bit OPTOFF not on in byte 
ARGOSOPT. 


. HLPIOFST contains a pointer to the 
offset. 


PROCESS 


OUTPUT 
DLZSDIB 


DIBCOUNT 


1. Update DL/! parameter count to 
reflect this SSA entry. 


2. If data is not to be transferred, go to 
Step 1, Figure 2-47.11. 


3. Get segment IOAREA address. 


DLZSSA 


SSAIOA 


4. Save segment IOAREA address in SSA 
appendage and set data transfer indicator. 


SSAFLAG 





5. If fixed length segment, go to Step 13. 


DLZSSA 


SSAFLAG 


6. Set variable length segment indicator 
in SSA appendage. 


7. If offset is not specified, go to Step 12. 


DLZSSA 


SSASGOFF 


8. Set offset in SSA appendage. 


9. If this is a get call, go to Step 13. 


DLZEIPB1 


Extended Description Routine Label 











Figure 2-47.10. SSA Appendage Processing (DLZEIPB1) (Part 2 of 2) 


INPUT PROCESS OUTPUT 
RS 
10. Compute the length of the concaten- ane 
ated key, intersection data, and 
destination parent. 
11. Go to Step 16. 
DLZARGO 
—_— — 12. If this is not a get call, go to Step 15. 
DLZARGO 
_— 13. If segment length is not specified, go 
to Step 1, Figure 2-47.11. 
DLZHLPIL 
a ———S 14. Get pointer to segment length. 
R5 


15. 


16. 


OLZEIPB1 - DL/I Batch/MPS Interface 


Extended Description Routine 


Bit OPTSEGL not on in byte 
ARGOSOPT. 


HLPILIOA contains a pointer to the 
segment length. 











Get segment length. 


DLISSAX 


SSAXLIOA 






Save segment length in SSA appendage. 


DLZEIPB1 
Label! Extended Description Routine Label 


FIXSEGL 
FIXSEG 


SETSEGLN 
SETLNCIS 
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Figure 2-47.11. Calculate IOAREA Size (DLZEIPB1) 


INPUT 
DLZARGO 


ARGORELN ez) 


2-47.10 





ARGOTOTN 


DLZSD!IB 

DIBSFLAG _—— 5 
DLZARGO 

ARGOFNCD = D 
DLZSDIB 

DIBPRCNT ]|(—————— & 
DLZSSA 


SSAIOA 


VV 





SSALIOA 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine Label 


1. ARGORELN contains the relative 
number of this call and ARGOTOTN 
contains the total number of calls 
for the EXEC DLI statement. 


. Bit DIBGPATH call not on in byte 
DIBSFLAG. 


. Ascan is made of all SSAs associated 
with this call, adding the length of 
each segment that has data transfer 
required in the SSA appendage. 








PROCESS sae OUTPUT 


1. If this is not the last HLPI call for the 
EXEC DLI statement, go to Step 6, 
Figure 2-47.20. 


2. If the previous call was not a get path 
call, go to Step 1, Figure 2-47.12. 


3. If current call is not a replace call, go 
to Step 1, Figure 2-47.12. 


DLZSDIB 


DIBCOUNT 


4. Reset DLI parameter count to that of 
the previous get path call minus one. 


5, Calculate the length required for the 
EIP common IOAREA for this call. 






DLZSDIB 


DIBPSIZE 





6. Save required EIP common IOAREA 
size. 


2-47.14 


DLZEIPB1 


Extended Description Routine Label 








Figure 2-47.12. Single IOAREA Processing (DLZEIPB1) 


INPUT 

DLZSDIB 

DIBPATHC | BPATHC 
DLZSDIB 

DIBSFLAG 
DLZARGO 

ARGOFNCD 
DLZSDIB 


= 
list. 
5. Go to Step 8. 
DLZSSA 
a ae 
a 


PROCESS OUTPUT 

2475; 
2-47.11 
eae a. > 1. If EIP common IOAREA is required, go 

to Step 1, Figure 2-47.13. 
—_—-—-- 2. If previous call was not a get path call, 

go to Step 6. 
—_— -- 3. If this is not a delete call, go to Step 6. 


DLZSDIB 


DIBPARM3 


4. Set previous get path call EIP common 
IOAREA address in the DL/I parameter 


6. Search for associated SSA. 


DLZSDIB 
7. Set the segment IOAREA address 
in DL/I parameter list. 
DLZsDIB 


8. Update DL/I parameter count to 
include the IOAREA. 


DIBCOUNT 


Step 1 
Figure 
2-47.17 
DLZEIPB1 - DL/! Batch/MPS EXEC Interface DLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


. DIBPATHC contains the number of 
IOAREAs specified for this call. 


. Bit DIBGPATH not on in byte 


DIBSFLAG. 


. If delete call follows a get path call, 
the IOAREA must reflect the way it 


was after the get path call. 





SEG1ISRCH 
SEGIFND 
NOSSA 
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Figure 2-47.13. Path Segment Length Verification (DLZEIPB1) 
INPUT 2-47.12 PROCESS OUTPUT 


DLZSDIB 


DIBCOUNT —— 2 1. Get count of SSAs and first SSA entry 
for the path call. 
| 





DLZSSA = Pp 2. If data is not to be transferred for this 
| segment, go to Step 7. 
DLZARGO 
——-p 3. If this is not an insert call, go to Step 5. 
RO 
4. Set data transferred indicator. ae | 
DLZSSAX 
=< —_ 5. If segment length is not specified, set 
up V2 status code and go to Step 1, 
Figure 2-47.21. 
6. Update to next SSA entry and go to 
Step 2. 
DLZARGO 
——-p 7. If this is not an insert call, update to 
next SSA entry and go to Step 2. 
RQ 
| — 8. If data was transferred on previous SSA 
entry, set up Tl status code and go to 
Step 1, Figure 2-47.21. 
R5 
Cs] —_— —6£ 9. If more SSA entries are to be processed, 
go to Step 2. 
Step 1 
Figure 
247.14 
DLZEIPB1 — DL/I Batch/MPS EXEC Interface DLZEIPB1 
Extended Description Routine Label Extended Description Routine Label 


. Get set to scan SSAs. LENVERY 


VERFYLEN 


. Segment length must be specified for CHKSEGLN 
every segment that has data transfer 
in a path call. 


. For insert calls, data transfer must be 
specified for every segment from the 
first one encountered to the object 
segment. 





Ae 


ct 
‘des 


Nuk 
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Figure 2-47.14. Get EIP Common IOAREA (DLZEIPB1) (Part 1 of 2) Figure 2-47.14. Get EIP Common IOAREA (DLZEIPB1) (Part 2 of 2) 
= INPUT ere PROCESS see eee OUTPUT INPUT PROCESS OUTPUT 
DLZSDIB 2-47.13 


DLZSDIB 


R1 
_ — "Sy 1. If EIP common IOAREA size is = [J+ -—— 


10. Save the address of the EIP common 


sufficient for this call, go to Step 11. IOAREA. 


DLZSDIB DLZSDIB 


— — > 2. If storage was not acquired for the EIP ———— : 
Ea H storage wes nat soqulrd ford ie Set odirees GPK coon LOAREA 


the DL/I parameter list. 


| 





DLZSDIB DLZSDIB DLZSDIB 


R1 
a ————"} 3. Get address of EIP common IOAREA. ————— 
12. Update the DL/I call parameter count to 
include the LOAREA. 
. 4. FREE current EIP common lOAREA : 
. storage. 
see <em> DFHSC TYPE = FREEMAIN Step 1 


Figure 
> 5. If storage request was unsuccessful, 2-47.15 
go to Step 2, Figure 2-47.22. 


DLZSDIB 


aes 
piersize | 


RO 
[pispsize_] a —————"">_ 6. Get current required EIP common 
=) IOAREA size. as 
DLZSDIB 
RO 
7. Set current size as new EIP common DIBIOSIZ 
ae IOAREA size. 


8. Acquire storage for EIP common 
IOAREA. 


<em> DFHSC TYPE = GETMAIN 


9. If storage request was unsuccessful, 
go to Step 1, Figure 2-47.22. 


R15 


DLZEIPB1 — DL/t Batch/MPS EXEC Interface DLZEIPB1 DLZEIPB1 - DL/! Batch/MPS EXEC Interface DLZEIPB1 


Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


10. Address of the area processed by 
GETMAIN is returmed in register 1. 
11. EIPIOAOK 


1, If the storage size (DIBPSIZE) calcul- 
ated for this call is less than or equal 
to the size of the existing EIP common 
IOAREA, the existing one is used. 

. VSE FREEVIS issued. 


. Unsuccessful return code is in register 


. VSE GETVIS issued. 


. Unsuccessful return code isin register 
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Figure 2-47.15. Build EIP Common IOAREA (DLZEIPB1) (Part 1 of 2) 


INPUT PROCESS 
2-47.14 
DLZARGO 
—_——F 1. If this is a get call, go to Step 1, Figure 
DLZSDIB 2-47.17. 


DIBCOUNT 


E 
2. Get count of SSAs and the EIP common 





IOAREA address. 
DLZSSA 
> 3. If data is not to be transferred, go to 
Step 8. 
DLZSSA 


SSAIOA 
SSALIOA 


<< 4 


Move the segment to the EIP common 
IOAREA. 





. tf all segments were moved to the EIP 
common !OAREA, go to Step 1, 
Figure 2-47.17. 


Update to the next SSA pointer. 







DLZSDIB Go to Step 3. 
peep re, If the previous call was not a path call, 
go to Step 5. 
DLZARGO 


ARGOFNCD — nee 


If this is not a replace call, go to Step 5. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine Label 


Extended Description 


SSA count is set in register 5 and 
EIP common IOAREA address is 
set in register 6. 


MOVELOOP 


Bit DIBGPATH not on in byte 
DIBSFLAG. 
















Figure 
247.17 


OUTPUT 


Lill 
oO a 


EIP 
Common Area 


ae 


DLZEIPB1 


Routine 


Label! 








Figure 2-47.15. Build EIP Common IOAREA (DLZEIPB1) (Part 2 of 2) 


INPUT PROCESS 
DLZSSA 
[ssartac_] aa + 10. If data was not transferred on previous 
DLZSSA path call, go to Step 5. 


[_———7 11. Get length of data that was transferred 


on previous call. 


DLZSSA 
ae 12. If previous segment was a fixed length, 
go to Step 17. 
DLZSSA 


[ssascorr_] a 13. If offset was not specified go to Step 16. 


DLZSSA 


ae 14. Calculate length of the destination 
parent and set length in the IOAREA. 





SSALIOA 


15. Go to Step 17. 
16. Set the length in the IOAREA. 


17. Update to next available area in EIP 
common IOAREA. 


18. Go to Step 5. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


_ Extended Description Routine Label Extended Description 


Bit SSAVARL not on in byte 
SSAFLAG. 


The length of a variable destination 
parent must be in the first two 
bytes of the segment that is 

after the concatenated key and 
intersection data. 


For variable length segments the 
length must appear in the first 
two bytes of the segment. 


OUTPUT 


DLZEIPB1 


Routine 





Label 
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Figure 2-47.16. SCHD, TERM, and CHKP Processing (DLZEIPB1) 


INPUT 
2-47.1 


DLZARGO 7 


ARGOFNCD — 


1. If this is a schedule call, set up AD 
status code and go to Step 1, Figure 
2-47.21. 


status code and go to Step 1, Figure 
2-47.21. 


[Pd 


status code and go to Step 1, Figure 
DLZHLPIL 2-47.21. 


HUPICKID — — 


4. Set up DL/I parameter list for 
Checkpoint. 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine Label 


4. HLPICKID contains a pointer to the 
checkpoint ID. 





PROCESS sqmmemnnsnssnsssssressssssseasssnistsnisenesn 


If this is a termination call, set up AD 


3. If this is not a checkpoint call, set up AD 





Extended Description 


OUTPUT 


OLZSDIB 


DIBPARM1 


DIBPARM2 
DIBPARM3 


Step 1 
Figure 
247.17 


OLZEIPB1 


Routine Label 











Figure 2-47.17. DL/I Program Request Handler Interface (DLZEIPB1) 


INPUT 2-47.12 
DLZSDIB 2-47.15 
2-47.16 
DIBSFLAG 1. 
2. 
3. 
4. 
DLZSDIB 
DIBREGSV 5. 
6. 
DLZSDIB 


; 


DLZEIPB1 - DL/I Batch/MPS EXEC Interface 
Extended Description Routine 
Bit DIBGPATH not on in byte 


DIBSFLAG. 


Bits DIBGPATH and PATHCALL 
turned off. 


Return address at label 
DLIRETRN 


X‘02’ = non-PL/I HLPI program 
X‘03’ = PL/I HLPI program 


7. 
NOTE: Batch exit to DLZPRHBO 
MPS exit to DLZMPRH 








PROCESS 


If the previous call was not a get path 
call, go to Step 3. 


Reset the path cal! indicators. 


Set EIP return address for DL/I. 


Save EIP registers. 


Set register save area pointer. 


Set language code for DL/I program 
request handler. 


Set pointer for DL/I call parameter list. 


Label Extended Description 


DLIPRHEX 


DLIEXPRH 


OUTPUT 


DLZSDIB 
DIBSFLAG | 


DLZPATH 


PATHFLAG 


DD 
pare 
fy 


DLZSDIB 


DIBRERC 


pe 
) 


D 
° 


a 
_ 


TE 


| 


Exit 
to 
DL/I 


DLZEIPB1 . 


Routine Label 
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Figure 2-47.18. DL/I Return Interface (DLZEIPB1) 


INPUT PROCESS 
Caller 


DLZSDIB Ex 1. Set addressability to the user DIB. 


f/~————— 2. Get address of the PCB. 


DBPCB 


3. Move DL/I status code, resource conflict 
indicator, segment name, and level to the 
Rae: 
DBPCBJCB 


DBPCBLEV 





DLZDIB 


—~—~ JP 4. If valid status code is returned from 


DL/I, go to Step 1, Figure 2-47.19. 





DLZEIPB1 - DL/I Batch/MPS EXEC Interface 


Extended Description Routine Label Extended Description 


DLIRETRN 
COMPDIB 
Valid DL/I status codes for HLPI: STCLOOP 


‘bb’, ‘GA’, ‘GB’, ‘GE’, ‘GK’, ‘II’. 
“LB’, and ‘NE’. 
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OUTPUT 


DLZDIB 


DIBSTAT 


Step 
Figure 
247.21 


DLZEIPB1 


Routine 


DIBFLAG 





DIBSEGLV 


Label 
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Figure 2-47.19. Get Path Call Processing (DLZEIPB1) (Part 2 of 2) 
INPUT 


Figure 2-47.19. Get Path Call Processing (DLZEIPB1) (Part 1 of 2) 


PROCESS OUTPUT 
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INPUT « PROCESS eummaseeesemenee ee OUTPUT 
2-47.18 
DLZSSA 
DLZPATH 
_DLZARGO_ ——- > 15. If data transfer is requested for this 
segment, create a path SSA appendage. 
———-—» 1. If checkpoint or not a get call, go to Step ie ‘ pp . 
6, Figure 2-47.20. 16. Update to next SSA. 
DLZSDIB snok 
—_—— 2. If key feedback is not requested go to Sarina 
Figure 2-47.19 Step 7. 
pecs DLZDIB | 
3. Give PCB key feedback area length to LD) F- — — > 17. if more ssAs are to be processed, go to 
user. DLZSDIB Step 10. 
DLZSDIB 
4. If key feedback length is not specified > 18. Get address of EIP common IOAREA. 
or negative, go to Step 6. 
. DLZSSAX 
PCB 5. Move PCB KFBA to user area and go to 
Figure 2-47.19 Step 7. = —-—- 19. If data transfer is requested for this 
DLZDIB segment, move the segment from EIP 
6. Set V8 status code in user DIB length common IOAREA to the segment 
DLZSDIB and go to Figure 2-47.21. _ 1OAREA. 
——- 7. If only one IOAREA is required, go to 20. Update to next SSA. 
Step 1, Figure 2-47.20. 
DLZPATH 
r— #8. If storage is acquired for SSA path 
— appendage, go to Step 13. 
RO 
9. Get required length of a path SSA a 21. If more SSAs are to be processed, go to 
appendage. Step 14. 
RO 
[ss] H— —> 10. Issue GETMAIN request for storage. endo 
a 9.47.20 
ae ——¥ 11. If request was unsuccessful, go to Step 1, ° 
Figure 2-47.22. 
DLZPATH 
12. Clear storage area to binary zeros. 
13. Set path call indicator. i sie 
14. Calculate number of SSAs for this call. : cs DLZEIPB1 - DL/I Batch/MPS EXEC Interface DLZEIPB1 
t Extended Description Routine Label Extended Description Routine Labet 
DLZEIPB1 - DL/I Batch/MPS EXEC Interface DLZEIPB1 
MOVESEG 
Extended Description Routine Label Extended Description Routine Label 


Truncation occurs if the actual 
length > user length. 


A V8 status code is set and pro- 
gram terminates. 


VSE GETVIS request issued. 


Bit PATHCALL set on in field 
PATHFLAG. 








DBCALLOK 


ERRORV8 


GOTSSAP 





as. 
age 


Be 
“bs. cg 





aa: 


CHCKPATH 
GETLOOP 
NEXTGET 
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_ Figure 2-47.20. Variable Length Segment Check (DLZE!PB1) 


INPUT gead PROCESS OUTPUT 
2-47.19 
DLZARGO 
——-> 1. Ifmore than one HLPI call for the DLI 
EXEC statement, go to Step 5. 


DLZARGO 


ARGOSOPT ——p 2 


3. 
4. 
DLZSSA 
SSAIOA ——F) 5. 
DLZSSA 
—— > 6 
7. 
8. 
9. 
DLZSDIB 
TSS 
10. 
11. 
DLZEIPB1 - DL/t Batch/MPS EXEC Interface 
Extended Description Routine 





If fixed length segment or if segment 
length is not specified, go to Step 10. 


If length of segment read is greater than 
the segment length required, set up V4 
status code and go to Step 1, Figure 
2-47.21. 


Go to Step 10. 


If data is not to be transferred, go to 
Step 8. 


If this is a fixed length segment, go to 
Step 10. 


If length of segment just read was 
greater than the segment length 
requested, set up V4 status code and go 
to Step 1, Figure 2-47.21. 


Update to the next SSA. 
If more SSAs, go to Step 1. 


R13 


Get caller’s register save area. 


Restore caller’s registers. 


Caller 
DLZEIPB1 


Label Extended Description Routine Label 


GETICHK 
NOFFSPEC 
IOACHK 
CHECKLEN 
UPSSA 
CALLDONE 


EIPEXIT 








Figure 2-47.21. ABEND Routine (DLZEIPB1) 


INPUT 





Catler 


DLZSDIB 


DLZEIPL 


EIPABEND Sa 


OLZSDIB 


DIBRBKWD 


PROCESS OUTPUT 


DLZSDIB 
1. Set up DLZ0371 message parameter list. 
DIBMSG 


|DIBMSGSC | 
IDIBMSGRC_ | 


2. Set pointer to message parameter list. 


lal 
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3. Set pointer to register save area. 


4. Go to DL/I message routine to issue 


(amp 


DLZODP 


Error message 
routine 





5. Get DL/! ABEND routine address. 


6. Restore caller's register save area 


pointer. 
DL/I 
ABEND 
BR R15 
DLZEIPB1 - DL/!I Batch/MPS EXEC Interface OLZEIPB1 
Extended Description Routine Label Extended Description Routine 


BATCH=ERRORMSG 
MPS=DLZMMSGX 


BATCH=DLZABEND 
MPS=DLZMABNX 
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Figure 2-47.22. Storage Management Error Routine (DLZEIPB1) 





INPUT PROCESS OUTPUT 
Calier 
R4 
1. Get address of GETVIS macro name and aa 
R4 
2. Get address of FREEVIS macro name. 
3. Set up parameter list for message 
DLZO038I. 


DIBMSGSC 
DIBMSGRC 





Step 2 
Figure 
2-47.21 
DLZEIPB1 - DL/! Batch/MPS EXEC Interface DLZEIPB1 
Extended Description — Routine Label Extended Description Routine Label 


1. Name at label GETID. 
2. Name at label FREEID. 
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Figure 2-48. DL/I Online EXEC Interface (OVERVIEW) (DLZEIPOO) (Part 1 of 3) 


INPUT 


DLZEIPOO - DL/I Online EXEC Interface 


Extended Description 


Z U01}90¢ 


HeledC jo poy 


UuOor 


ele -Z% 


PROCESS 


initialization. 
(See Figure 2-48.1) 


Initial Call Processing. 
(See Figure 2-48.2) 


. Acquire System DIB. 


(See Figure 2-48.3) 


. SDIB Validation and Return. 


(See Figure 2-48.4) 


. Call Determination Routine. 


(See Figure 2-48.5) 


. PCB Processing Routine. 


(See Figure 2-48.6) 


. Segment Length Verification. 


(See Figure 2-48.7) 


. Segment/Offset Length Verification. 


(See Figure 2-48.8) 


Replace/Get Path Processing. 
(See Figure 2-48.9) 


. Acquire SSA Storage. 


(See Figure 2-48.10) 


Load/Delete Call Check. 
(See Figure 2-48.11) 


. Command Code Processing. 


(See Figure 2-48.12) 


Label Extended Description 








OUTPUT 


DLZEIPOO 


Routine 


J) 


¢ 
Ne 


ff 


Figure 2-48. DL/I Online EXEC Interface (OVERVIEW) (DLZEIPOO) (Part 2 of 3) 


INPUT 


DLZEIPOO - DL/I Online EXEC Interface 


Extended Description 





14. 


15. 


16. 


17. 


18. 


19. 


20. 


21. 


22. 


23. 


Routine 


PROCESS 
13. 


Field Qualification Routine 
(See Figure 2-48.13) 


SSA Appendage Processing. 
(See Figure 2-48.14) 


Calculate IOAREA Size. 
(See Figure 2-48.15) 


Single IOAREA Processing. 
(See Figure 2-48.16) 


Path Segment Length Verification. 
(See Figure 2-48.17) 


Get EIP Common IOAREA. 
(See Figure 2-48.18) 


Build EIP Common IOAREA. 
(See Figure 2-48.19) 


Schedule Call Processing. 
(See Figure 2-48.20) 


TERM Call Processing. 
(See Figure 2-48.21) 


Checkpoint Call Processing. 
(See Figure 2-48.22) 


DL/I Program Request Handier 
Interface. 
(See Figure 2-48.23) 


DL/I Return Processing. 
(See Figure 2-48.24) 


Label Extended Description 





OUTPUT 


DLZEIPOO 


Routine 
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Figure 2-48. DL/! Online EXEC Interface (OVERVIEW) (DLZEIPOO) (Part 3 of 3) 
PROCESS OUTPUT 


INPUT 


DLZEIPOO - DL/I Online EXEC Interface 


Extended Description 





25. 


26. 


27. 


28. 


Routine 





DL/I Psuedo ABEND Processing. 
(See Figure 2-48.25) 


DIB Initialization. 
(See Figure 248.26) 


Get Path Call Processing. 
(See Figure 2-48.27) 


Variable Length Segment Check. 
(See Figure 2-48.28) 


Invalid DIB Processing. 
(See Figure 2-48.29) 


DLZEIPOO 


Label Extended Description Routine 





Label 
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Figure 2-48.1. Initialization (DLZEIPOO) 


INPUT PROCESS 
Caller 


DFHUEPAR 1. Save caller’s registers. 


—— > 2. Get address of CICS/VS inhibit flags. 


DFHUERTR 


UERTFLD peace mead 


w 


DFHUEPAR 








If this is a non-API call, go to Step 6, 
Figure 2-48.4. 





Figure 2-48.2. Initial Call Processing (DLZEIPOO) 


INPUT PROCESS 
fler 
DLZARGO i» 
—_——~ ¥ «+1._ ‘If this is not an initialization call, go to 


Step 1, Figure 2-48.5. 


| TCADLIBF ] 
TCASCNB 
TCASCSA 


Vv 
N 


go to Step 1, Figure 2-48.3. 





if storage was acquired for the UIB and 
SDIB, go to Step 1, Figure 2-48.4. 


~ 3. If storage was acquired for the UIB only, 





Get address of CICS/VS CSA and appii- 
cation program register save area. 


Get HLPI parameter list address. 


l/ 


Acquire storage for the UIB and SDIB. 


Z u0NV0aS 


ye1odO jo poop 


uo! 


STE -Z 


TCASYAA 


DLZHLPIL 


HLPIARGO 


DLZEIPOO - DL/I Online EXEC Interface 


Extended Description Routine Label 


DFHUEPAR is the CICS/VS user DLZEIPI 
interface block whose address 
is passed in register 1. 


The HLPI parameter list address is 
in the sixth fullword of the user’s 
register save area. 





7. Get address of CICS/VS system TCA. 


TES ; 
. 6. Set up base register. 
TCA 
Se 
ee 


8. Get address of the HLPI argument list. 








Extended Description 





storage acquired indicators. 


6. Save the system DIB address. 


7. Set the 1D in the system DIB. 


DLZEIPOO - DL/I Online EXEC interface 


Extended Description Routine Label Extended Description 


EIPSTART 


Bits TCAUIBAQ and 
TCADIBAQ on. 


Bit TCAUIBAQ only is on. 


CICS/VS GETMAIN issued. If 
unsuccessful, the task is 
terminated. 


ID of ‘DLZSDIB’ initialized in the 
first seven bytes of the control 
block. 
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TCADLIBA 
TCADLIBF 


5. Save the UIB and SDIB address and set 





luisspip_—__| BSDIB 








91E-7 
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Figure 2-48.3 Acquire System DIB (DLZEIPOO) 


INPUT PROCESS soe OUTPUT 
Caller 
—~— — — 1. Acquire storage for the system DIB. 
DLIUIB 
2. Save the system DIB address. 
TCA 


3. Set SDIB storage acquired indicator. 


DLZSDIB 
4. Set ID in system DIB. (oi _] 
Step 4 
Figure 
2-48.4 
DLZEIPOO — DL/I Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine 


1. CICS/VS GETMAIN issued. If unsuc- 
cessful, CICS/VS terminates the task. 


3. Bit TCADIBAQ set on. 


4. ID of ‘DLZSDIB’ initialized in the 
first seven bytes of the control 
block. 





Label 





Figure 2-48.4. SDIB Validation and Return (DLZEIPOO) 


INPUT 


Caller 


TCA 


TCADLIB 


DLIVIB 


OLZSDIB 


DIBIO 
DLZHLPIL 


HLPIDIBP 


- DLZEIPOO — DL/I Online EXEC Interface 
.Extended Description 


1. 

3. ID of ‘DLZSDIB’ must be in the 
first seven bytes of the control 
block. 


4. 


6. Returns to DFHEIP. 


———— 
=—| | 2. Get address of the system DIB. 
: 
Lupipiep_ | @———@ 








PROCESS OUTPUT 


1. Get address of the UIB. 


3. If this is not the system DIB, go to 
Step 1, Figure 2-48.29. 


4. Get the user DIB address. 


DLZSDIB 
5. Update system DIB with the current 
user DIB. 
6. Restore DFHEIP registers. 
DFHEIP 
DLZEIPOO 
Routine Label Extended Description Routine Label 


INITEXIT 
EIPEXIT 
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Figure 2-48.5. Call Determination Routine (DLZEIPOO) (Part 1 of 2) Figure 2-48.5. Call Determination Routine (DLZEIPOO) (Part 2 of 2) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Caller DLZARGO 
A amas —_—— 5 8. If this is not a data base call, go to Step 1, 
/7_———1p 1. Get UIB address. | Figure 2-48.20. 
DLIUIB = DLZSDiB 
2. Get system DIB address. ——— > 9. If scheduling call is not issued, set TH 
status code and go to Step 5, Figure 
DLZSDIB 2-48.25. 
P 3. If this is not the system DIB, go to BEZARGS 
Step 1, Fi 2-48.29. . : 
ala — — <b 10. If this is not the first HLPI call, go to 
Step 1, Figure 2-48.7. 
DLZSDIB DLZARGO 
4. Save HLPI parameter list pointer and ———- 11. If IOAREA is specified for this call, 
caller’s register savearea address. go to Step 5, Figure 2-48.6. 
DLZDIB 
ae es 12. Set AB status code in user DIB. 
Li 5. Get address of user DIB and save it in 
system DIB. 
6. Clear user DIB. Step 5 
Figure 
2-48.25 
DLZSDIB 
7. Set address of DL/I parameter count 
in DL/I call parameter list. 
DLZEIPOO — DL/I Online EXEC Interface DLZEIPOO 
DEG EI ROge 2 SU Onine: EtG lntsitars DEZEINOS Extended Description Routine Label Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label 


8. Data base calls, as defined here, are 
get, insert, replace, and delete. 


oat, DLZEIPO 


. Scheduling call must be first DL/I 


4. GETFNCAL call request. 


. The first call for an EXEC DL/I 
statement passed is actually the 
call for the object segment. 


6. User DIB set to binary zeroes 
except for version. 


. AB status code equals segment 
IOAREA required for object 
segment. 
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Figure 2-48.6. PCB Processing Routine (DLZEIPOO) (Part 1 of 2) 


INPUT 
Caller - 


DLZARGO 
- ARGOOPTI1 ae 


DLZHLPIL 


HLPIKFBA 
‘DLZARGO 


ARGOOPT1 


OLZHLPIL 


HLPIKFBL 


DLZEIPOO — DL/I Online EXEC interface 


Extended Description 


. Bit 1 in ARGOOPTI is set by the 
CICS/VS translator to indicate 
KEYFEEDBACK. 


. Bit 0 in ARGOOPT] is set by the 
CICS/VS translator to indicate 
FEEDBACKLEN. 








Routine Label 


PROCESS 


1. Reset key feedback flags and area/length 
fields. 


2. If key feedback is not requested go to 
Step 8. 


3. Set key feedback flag. 


4. Save user key feedback area address. 


5. If key feedback length is not provided, 
go to Step 8. 


6. Set key feedback length flag. 


7. Save user key feedback area length. 


Extended Description 


OUTPUT 


DLZSDIB 


DIBSFLAG 


DIBKFBAA 


DIBKFBLL 





DLZSDIB 


DIBSFLAG 
DIBKFBAA 


DLZSDIB 


OIBSFLAG 


DIBKFBLL 





DLZEIPOO 


Routine Label 











Figure 2-48.6. PCB Processing Routine (DLZEIPOO) (Part 2 of 2) 
INPUT PROCESS 


8. Reset necessary fields in system DIB. 


DLZHLPIL 
9. Get PCB number specified for this call. 


HLPIPCBI =< =. 


10. If PCB number is zero, negative value, 
or greater than the number of PCB for 
the PSB, set TP status code and go to 
Step 1, Figure 2-48-25. 


11. Save current PCB number in system 
DIB. 


12. Get PCB address for this call. 
DLZDIB 


4—_——4 13. Store PCB address in DL/I call para- 


meter fist. 


14. Update DL/I call parameter count to 
include the function call and PCB 
address. 


DLZEIPOO — DL/I Online EXEC Interface 


Extended Description Routine Label 


8. On the first HLPI call for each EXEC FRSTIOOK 
DLI statement the path count, cur- 
rent required JOAREA size, and the 
DL/I parameter count are set to 
binary zeroes and the DL/I function- 
call is set in the DL/I call parameter 
list. 


. Using the PCB number, index into 
the PCB list for the current PCB 
address. 








Extended Description 


OUTPUT 
DLZSDIB 


DIBPATHC 
DIBPSIZE | 


DIBCOUNT 


DIBPARM1 





DOLZSDIB 


DIBPCBNO 


DLZSDIB 


DIBPARM2 


DLZSDIB 


DIBCOUNT 


DLZEIPOO 


Routine Label 
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Figure 2-48.7. Segment Length Verification (DLZEIPOO) 
(INPUT = ‘i PROCESS 


Caller 
DLZARGO 


i} 


1. If data is not to be transferred, go to 
[arcoccon | —_——-£ ’ 
Step 22, Figure 2-48.8. 


2. Update data transfer count and save in 
the system DIB. 


DLZARGO 

——-> nets pees en 
DLZARGO 

—— > * tomer loaned 20 
DLZHLPIL 

— —-—}) 5. Get segment length. 


6. If segment length is zero or a negative 
value, set V2 status code. Go to Step 
1, Figure 2-48.25. 


OLZEIPOO — DL/It Online EXEC Interface 


Extended Description Routine Label Extended Description 


. Bit CCINFROM on in byte 
ARGOCCOD. 


. Account is kept for each call that has 
tequested data transfer for the EXEC 
DLI statement. 


. Bit OPTVAR on in byte 





ARGOSOPT. 

. Bit OPTSEGL on in byte 
Me ARGOSOPT. 
c . Field HLPILIOA contains a pointer 
eae 
o) to the segment length. 
== 
Sd 
& 
= 
Q 
OQ. 
2} 
= 
Oo 
So 
oc) 
= 
© 
e 
he 
© 
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6le-Z 





Step 19, 
248.8 


OUTPUT 


DLZSDIB 


DIBPATHC 


DLZEIPOO 


Routine 


Label 
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Figure 2-48.8. Segment/Offset Length Verification (DLZEIPOO) (Part 1 of 3) Figure 2-48.8. Segment/Offset Length Verification (DLZEIPOO) (Part 2 of 3) 


INPUT oT PROCESS queens OUTPUT INPUT s PROCESS OUTPUT 
er 
z a . 9. If this is not a get call, go to Step 12. 
DLZHLPIL 
ARGOFNCD 
1. Get address of the segment IOAREA 10. Get segment length and go to Step 19. 
: address. 


DLZARGO 


ARGOSOPT 


OLZHLPIL 


[ancasorr | 
[ancosorr | 


~ 
le 
aner & 13. If this is a get call, go to Step 4, 
4. If offset value is zero or a negative Figure 2-48.7. 
value, set up V5 status code and goto : 
Step 1, Figure 2-48.25. 14, Get length of variable length segment. 
DLZARGO 
5. If maximum statement length is not 15. If segment length is greater than the 
[arcosort | specified, go to Step 11. maximum length supported, set V4 
status code and go to Step 1, Figure 
a 


2. If offset i ifi ; GOFNC —o > 11. If this is a get call, set V2 status code 
is not specified, go to Step 13 and go to Step 1, Figure 2-48.25. 


12. Compute length of the segment and go 
to Step 15. 


© 9 
9 
N N 
> > 
=) Po] 
G) G) 
°o °o 


~ 
r 
is 
iJ 


DLZHLPIL OLZARGO 2-48.25. 
6. Get maximum segment length. — —-s 16. If maximum segment length is not 
[weno] specified on HLPI call, go to Step 
7. If maximum segment length is zero or a DLZHLPIL 19. 
negative value, set V2 status code and go ‘ 
to Step 1, Figure 2-48.25, ——_— > 17. Get maximum segment length. 


8. If offset value is greater than segment = pasion eae 


length, set V5 status code and go to 
Step 1, Figure 2-48.25. melee haf a re 


DLZEIPOO - DL/I Online EXEC Interface DLZEIPOO — DL/! Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 
9. This check is made for all get type 


call GN, GU, and GNP. 
11. VGETCALL 


Bit OPTOFF not on in byte 
ARGOSOPT. 


Field HLPIOFST contains a 

pointer to the OFFSR value. 

This value is the length of the 
concatenated key plus the length of 
the intersection data (if any). 


12. This length includes the concatenated VRSGCON 
key, intersection data, and the 
segment. , 


NOFFSET 


Field HLPILTOA contains a 
pointer to the segment length. 


. This length is in the first two bytes 
of the segment IOAREA. 


MAXCHECK 


. Bit OPTSFGL not on in field 
ARGOSOPT. 


. Field HLPILIOA contains a 
pointer to maximum segment 
length. 





‘| 
ay’ 
be 


as 
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Figure 2-48.8. Segment/Offset Length Verification (DLZEIPOO) (Part 3 of 3) 
INPUT PROCESS 


OLZSDIB 


DIBPSIZE | Gem > «19. Get current length required for 
[usrsize | paesite 


20. Update current required IOAREA 
length with this segment length. 


21. Save updated required IOAREA length. 


DLZARGO 
bs, 22. If segment name is specified go to Step 
1, Figure 2-48.9. 
DLZARGO 
s 23. If call is not a get next type, set AH 
status code and go to Step 1, Figure 
2-48.25. 
DLZHLPIL 


AA, 24. Set segment IOAREA address in DL/I 


call parameter list. 


DLZEIPOO — DL/I Online EXEC Interface 


Extended Description Routine Label Extended Description 


19. 


22. Bit OPTSEGM on in field 
ARGOSOPT. 


Z WOES 
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Figure 
248.9 


OUTPUT 





DLZSDIB 


DIBPSIZE 





DLZSDIB 


DLZEIPOO 


Routine 


Label 
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Figure 2-48.9. Replace/Get Path Processing (DLZEIPOO) (Part 2 of 3) 


Figure 2-48.9. Replace/Get Path Processing (DLZEIPOO) (Part 1 of 3) 
PROCESS OUTPUT 


INPUT PROCESS sqummemes=oeee OUTPUT INPUT 


DLZSDIB 


| DLZSSAX 


s& 1. Do calculations to get the correct path 8. Rebuild SSA extension. 


header control block for current PCB. 


DIBPCBNO 
DLZSSA 


DLZSSAP 
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[i — —_5 9. Reconstruct the SSAs and SSA 

DLZPATH . appendages for the get path call. 

2. Get path SSA appendage pointer. 
DLZHLPIL 
3. If path SSA appendage does not exist 10. Get current HLPI call segment name. 
or if previous call was not a get path 
call, go to Step 1, Figure 2-48.10. DLZSSA 
Peeae! 11. If segment name does not exist in the 
DLZSDIB reconstructed SSAs, go to Step 21. 
4. Reset get path call indicator in system 
DIB. ad . poz=oes 
ISSAXFLAG | — ——- 12. If SSA entry was previously processed 
Ne SSAXFLAG : , 
AY | [ssaxeias ] set AC status code and go to Step 1, 
— — —§ 5. If this is not a replace call go to Step Figure 2-48.25. 
IARGOFNCD | p 
lancorwco | 1, Figure 2-48.10. 

DLZARGO DLZSSA 
ARGORELN |H- — — —f> 6. If this is not the first HLPI call for the 13. Set SSA processed indicator. fssartac _] 
aRSonELN | DLI EXEC statement, go to Step 9. DLZARGO 

— — +5 14. If path is not to be transferred for 
DLZSDIB this call, go to Step 1, Figure 2-48.15. 
DIBPRCNT DLZSSAX ; 
7. Reset system DIB with previous get path 15. ean at habales oh ene: 
call information. go ens 
DLZARGO 

TARGOSOPT | —— == ey 16. If current segment is not variable 
[arcosort_] " 

DLZEIPOO — DL/I Online EXEC Interface DLZEIPOO length, go to Step 18. 

.Extended Description Routine Label Extended Description Routine Label 





1. Current PCB number-1 x length of the STARTSSA DESEPOO << DLACOiliae EXER [aeiee seboe 
path header control block. 
- Bit DIBGPATH set ON in field Extended Description Routine Label Extended Description Routine Label 


DIBSFLAG. 


. If the previous call was a get path call 
and current call is a replace call and 
this is the first HLPI call for the DLI 
EXEC statement, the SSAs and SSA 
appendages are reconstructed based 
on the get path call. 














9. SSAs are reconstruced with segment 
name, a command code, and blank 
delimiter. 

10. HLPISEGN contains a pointer to the SEGNCHK 
segment name. 


11. SEGLOOP 


12. Bit SSAXPROC not set in field SSAFOUND 


SSAXFLAG. 





13. Bit SSAXPROC set ON in field 
SSAXFLAG. This is done to ensure 
duplicate segment names are not 
specified in current call. 


. Bit CCINFROM not on in field 
ARGOCCON. 


. Bit SSAXDATT not in field 
SSAXFLAG. 


. Bit OPTVAR not on in field 
ARGOSOPT. 
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Figure 2-48.9. Replace /Get Path Processing (DLZEIPOO) (Part 3 of 3) 
INPUT PROCESS OUTPUT 


DLZSSA 


SSAFLAG ——-—p 16. 


17. 


18. 


DLZHLPIL 


[portion] Pp ———"% 19. 


DLZSSA 


[ssatioa | — — ap 7” 
SSALIOA 





If variable length segment was specified 
on previous get path call, go to Step 1, 
Figure 2-48.12. 

Go to Figure 2-48.25. 


If variable length segment was specified 
on previous call, go to Figure 2-48.25. 


Get address of segment length. 


If replace lengths are equal go to 
Step 1, Figure 2-48.12. 


DL2D1B 
21. Set TO status code in user DIB. 
22. Go to Step 1, Figure 2-48.25. 
2-48.25 
DLZEIPOO — DL/I Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label 


16. Bit SSAVARL on in byte 
SSAFLAG. 


18. 


19. HLPILIOA contains a pointer to the 
segment length. 


21. Status code ‘TO’ indicates replace/ 
get path calls inconsistent. 


Z woKeS 


We10dO Jo poywW 


uor 


€%E-Z 





ERRORTO 





Wal JO Ajrodo1g—jepiayeyA] posusory] 


No Figure 2-48.10 Acquire SSA Storage (DLZEIPOO) 
I INPUT PROCESS sees OUTPUT 
| \w) Caller 
~ DLZARGO 
1. If this is not the first call for the EXEC 
ARGORELN -_-_— 
DL/I statement, go to Step 3. 

ey DLZARGO 

™~ 2. Get the total number of calls in the 

= ie st command. 

3 DLZDIB 

3. Move the segment name to the user 

| < 

NM 4. Decrease the calls by one. 

- E 

® 5. Get the entry point for the SSA. 

¥ DLZARGO 

2 6. If there is no qualification on the 

< _ S SSA, go to Step 8. 

) 

= DLZHLPIL . DLZSSA a 

>, . Build the SSA with the boolean 

< qualification for all fields. 

E 

as SSA Extension 

tw . Get storage, if necessary, for the 


- a Oo 
i?) i?) 
> > N 
4 
> 
x 
5 g 
z x 
a 
& x 
—_ —_ 
= o © ro) N 


DLZEIPOO — DL/I Online EXEC Interface 





Extended Description Routine Label 


1. Relative number in field ARGORELN 
is one. 


2. The first HLPI call for the EXEC DLI 
statement is for the object segment. 








SSA extension; if not necessary, 
go to Step 10. 


. Go to Step 11. 


. Check the old SSA size compared 


to the new SSA size. Issue a FREEVIS 
if the new SSA is smaller. 


. Save the size of the SSA and 


DLZSDIB 


DIBPARMX 


DLZSSA 


SSASEGNM 


the SSA address. 


Move the segment name to the SSA. 


Step 1 
Figure 
2-48.11 
DLZE!POO 
Extended Description Routine Label 


5: SUBONE 

SSASIZNG 
8. SSASIZED 

10. i CHKSSASZ 


SSANPATH 
7. Calculate the length of the SSA. 











Figure 2-48.11. Load/Delete Cali Check (DLZEIPOO) 


INPUT PROCESS 
Caller 


DLZARGO . 


1. If this is a load call, set CD status code 
and go to Step 5, Figure 2-48.25. 


ARGOFNCD 


2. If this is not a delete call, go to Step 1, 
Figure 2-48.12. 


3. Move blank delimiter to SSA. 


DLZEIPOO — DL/I Online EXEC Interface 
Extended Description Routine Label 


1. Load call is invalid in online 
environment. 


2. Delete call is unqualified. 


i ‘s i ; 
wh t. 
A 


Extended Description 


OUTPUT 


DLZSSA 


[ssaastak | K 


Step 1 
Figure 
2-48.14 


DLZEIPOO 


Routine Label 
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Figure 2-48.12. Command Code Processing (DLZEIPOO) (Part 1 of 3) Figure 2-48.12. Command Code Processing (DLZEIPOO) (Part 2 of 3) 


INPUT PROCESS 





Z wons9S 


HelodQ jo poy 


uor 


SZE- 2% 





| E 
OUTPUT INPUT PROCESS OUTPUT @ 
Caller DLZSSA DLZSSA B 
1. Set command code indicator in SSA. 10. Set ‘F’ command code in SSA. 2 
11. Go to Step 1, Figure 2-48.13. rs) 
DLZSSA DLZARGO ® 
2. Set for null command code. 12. If last was not specified Ste 
SSACMND ner : pecified, go to Step 
ssacune | 1, Figure 2-48.13. 
DLZARGO DLZSSA a 
we ~) 
—— 3. If this is not a replace call, go to Step 6. 13. Set ‘L’ command code in SSA. + 
DLZARGO 14. Go to Step 1, Figure 2-48.13. a 
— —— > 4. If data to be transferred for this call, DLZARGO a 
go to Step 1, 2-48.13. | 6615. If this is not a get call, set up AD le =] 
a status code and go to Step 1, < 
Figure 2-48.25. 
DLZSSA DLZARGO 
. Set ‘N’ command code in SSA. —— —} 16. If locked not specified, go to Step 18. 
DLZARGO DLZSSA 
— — 6. If this is not an insert call, go to abe 17. Move ‘QA’ command code to SSA. 
step 15. 
DLZARGO DLZARGO 
— — . lf data is not to be transferred, go to ~ 18. If data is not to be transferred, go 
G 5 ‘ ARGOCCOD — 5 
DLZSSA DLZARGO 
pear : i Al Gi Ste 
oe . Set ‘D’ command code in SSA. . ak s% 19. aint is object segment, go to Step 
LZARGO 


\L/ 


ARGOCCOD 


DLZEIPOO — DL/I Online EXEC Interface 
Extended Description 


. Command code indicator is an astrisk 


(*). 
. Null command codes are dashes (-). 
. Replace call code equals X‘14’. 


. Bit CCINFROM on in byte 
ARGOCCOD. 


. ‘N’ command code indicates that this 
segment is not to be replaced. 


. Function code is not equal to X‘12’. 


. Bit CCINFROM not on in byte 
ARGOCCOD. 


. ‘D’ indicates multiple insert path 
call. 


. Bit CCFIRST not on in byte 
ARGOCCOD. 


Routine Label 


. If first was not specified for this call, 


go to Step 12. 


DLZEIPOO 


Extended Description Routine Label 


CKCCISRT 


DLZE!POO — DL/! Online EXEC Interface 


Extended Description Routine 


10. ‘F’ indicates start with the first 
occurrance of this segment type to 
satisfy this level of call. 


. Bit CCLAST not on is field 
ARGOCCOD. 


. ‘L’ indicates use last occurance of 
segment type to satisfy this level 
of call. 


. Function code is not in range of 
X‘10’ and X‘OA’. 


. Bit CCLOCKED not on in byte 
ARGOCCOD. 


. ‘QA’ indicates to lock segment(s) 
returned to prevent modification 
by another task. 





DLZEIPOO 


Label Extended Description Routine Label 


CKCCLSTI 








N Figure 2-48.12. Command Code Processing (DLZEIPOO) (Part 3 of 3) 
I INPUT PROCESS eqn OUTPUT 
Nes Ty . DLZSSA 
= DLZARGO 20. Set ‘D’ command code in SSA. 
2 21. If first not specified in call, go 
to Step 24. aiscen 


22. Set ‘F’ command code in SSA. 


23. Go to Step 1, Figure 2-48.13. 
DLZARGO 


TARGOCCOD | eee 24. If last not specified, go to Step 1, 
Saceece Figure 2-48.13. 
DLZSSA 


25. Set ‘L’ command code in SSA. 
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Step 1 
Figure 
2-48.13 
DLZEIPOO — DL/i Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label 


CKCCISTG 
CKCCLSTG 
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Figure 2-48.13. Field Qualification Routine (DLZEIPOO) 


INPUT 
Caller 
DLZARGO 
ARGOSOPT _—_—— 
DLZHLPIL 


IHLPIFLDN 


HLPIOPER 





DLZARGO 


ARGOSOPT 


DLZHLPIL 


HLPIFLDV 
HLPILFLD 





DLZEIPOO — DL/I Online EXEC Interface 


Extended Description 
. Bit OPTWHERE set on in byte 
ARGOSOPT. 
2. Blank indicates unqualified SSA. 
. Left paren indicates qualified SSA. 
. Field HLPIFLDN has a pointer to the 
field name and HLPIOPER has a 


pointer to the relational operators. 


. Bit OPTFLDL not on in byte 
ARGOSOPT. 


. Field HLPIFLDV is a pointer to the 
field value and HLPILFLD is a pointer 
to the field value length. 


. Loop through the boolean 
qualifications. 


. Right paren is delimiter for 
qualification of SSA. 





PROCESS OUTPUT 


d 


1. If where is specified, go to Step 4. 


DLZSSA 


2. Set blank delimiter in SSA. 
3. Go to Step 1, Figure 2-48.14. = 
DLZSSA 
4. Set left paren in SSA. 
5. Move fieid name and relational 


SSAFLONM 


operators into the SSA. 
6. If field length is not specified, set up 
V3 status code and go to Step 1, 
Figure 2-48.25. 
7. Get field values and the value lengths. 
8. If field length is zero or a negative 
value, set up V3 status code and 
go to Step 1, Figure 2-48.25. 
DLZSSA 
9. Move the field values to the SSA ssaceven | 


and loop through the qualification. 


10. Move the right parenthesis into the SSA. 





Figure 


248.14 DL ZEIPOO 


Routine Label Extended Description Routine Label 
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Figure 2-48.14. SSA Appendage Processing (DLZEIPOO) (Part 1 of 2) 


Y INPUT Caller 
DLZARGO 
—— 
DLZHLPIL 
=e 
DLZARGO | 
, 
DUZHLPIL 
——— 
DLZARGO 


DLZEIPOO - DL/! Online EXEC Interface 


_Extended Description Routine Label 


. Bit CCINFROM not on in byte 
ARGOCCOD. 


. Field HLPISIOA contains the 
address of the segment I/O area. 


. Bit SSADATAT indicates data 
transfer in the SSA appendage. 


. Bit SSAVARL in the SSA appendage 
indicates variable length segment. 


. Bit OPTOFF not on in byte 
ARGOSOPT. 


. HLPIOFST contains a pointer to 
the offset. 








OUTPUT 
DLZSDIB 


DIBCOUNT 





PROCESS 


1. Update DL/I parameter count to 
reflect this SSA entry. 


2. If data is not to be transferred, go to 
Step 1, Figure 2-48.15. 


3. Get segment IOAREA address. 
DLZSSA 


4. Save segment IOAREA address in SSA 
appendage and set data transfer 
indicator. 


5. If fixed length segment, go to Step 13. 


SSAFLAG 





DLZSSA 


6. Set variable length segment indicator 
in SSA appendage. 


7. If offset is not specifed, go to Step 12. 
DLZSSA 


8. Set offset in SSA appendage. 


9. If this is a get call, go to Step 13. 


DLZEIPOO 


Extended Description Routine Label 


VARSEGL 








Figure 2-48.14. SSA Appendage Processing (DLZEI!POO) (Part 2 of 2) 


INPUT PROCESS OUTPUT 
R5 
10. Compute the length of the concaten- ae 


DLZARGO 11 


ARGOFNCD —— 12. 


_DLZARGO 


ARGOSOPT — — -P 13. 


DLZHLPIL 


[rtion ]_}———=> 4. 


15. 


16. 


OLZEIPOO - DL/I Online Interface 


“Extended Description Routine 


Bit OPTSEGL not on in byte 
ARGOSOPT. 


HLPILIOA contains a pointer to 
the segment length. 


| 
/ 


“a «= Co } 





ated key, intersection data, and 
destination parent. 


Go to Step 16. 


If this is not a get call, go to Step 15. 


If segment length is not specified, go 
to Step 1, Figure 2-48.15. 


Get pointer to segment length. 
. R5 
Get segment length. CJ 
DLISSAX 


Save segment length in SSA 


SSAXLIOA 


appendage. 
Step 1, 
Figure 
2-48.15 
DLZEIPOO 
Label Extended Description Routine Label 


FIXSEGL 
FIXSEG 


SETSEGLN 
SETLNCIS 
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Figure 2-48.15. Calculate IOAREA Size (DLZEIPOO) 













INPUT PROCESS OUTPUT 
Caller 
DLZARGO 
sts 1. If this is not the last HLPI call for the 
EXEC DLI statement, go to Step 6, 
Figure 2-48.4. 
DLZSDIB 
— —. —§> 2. If the previous call was not a get path 
DIBSFLA P ; 
call, go to Step 1, Figure 2-48.16. 
DLZARGO 
— ——-~ 3. If current call is not a replace call, go 
to Step 1, Figure 2-48.16. 
DLZSDIB DLZSDIB 
—— 4. Reset DLI parameter count to that of the 
previous get path call minus one. 
DLZSSAX 


SSAXIOA — —.m» 5. 





SSALIOA 


Calculate the length required for the 
EIP common IOAREA for this call. 


DLZSDIB 


6. Save required EIP common IOAREA 
Step 1 
Figure 
248.18 
DLZEIPOO — DL/I! Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label 


1. ARGORELN contains the relative 
number of this call and ARGOTOTN 
contains the total number of calls 
for the EXEC DLI statement. 


. Bit DIBGPATH call not on in byte 
DIBSFLAG. 


. Ascan is made of all SSAs associated 
with this call, adding the length of 
each segment that has data transfer 
required in the SSA appendage. 





PROCNEXT 








Figure 2-48.16. Single |OAREA Processing (DLZE!PO0) 


INPUT PROCESS 


Caller 
OLZSDIB 


> ae 


DLZSDIB 


nN 


DLZARG 


| 
| 
wo 


DLZSDIB 


7. 


DLZEIPOO - DL/I Online EXEC Interface 


Extended Description Routine 


. DIBPATHC contains the number of 
IOAREAs specified for this call. 


. Bit DIBGPATH not on in byte 
DIBSFLAG. 


. If delete call follows a get path call, 
the IOAREA must reflect the way 
it was after the get path call. 





If EIP common IOAREA is required, 
go to Step 1, Figure 2-48.17. 


. If previous call was not a get path call, 


go to Step 6. 


. If this is not a delete call, go to Step 6. 


. Set previous get path call EIP common 


=. 
= 


IOAREA address in the DL/I parameter 
list. 


Go to Step 8. 


6. Search for associated SSA. 


Set the segment IOAREA address in 
DL/I parameter list. 


. Update DL/I parameter count to 


include the IOAREA. 


Label Extended Description 


SEG1SRCH 
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Figure 2-48.17. Path Segment Length Verification (DLZEIPOO) 
INPUT 
DLZSDIB 


aller 


DIBCOUNT aera 


DIBSSAS 





DLZSSAX 


DLZARGO 

ARGOFNCD _— 
DLZSSAX 

SSAXIOA pany aoe 
DLZARGO 


ARGOFNCD oe a et 


2 


9 


: 


BY 
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DLZEIPOO - DL/! Online EXEC Interface 


Extended Description 


1. Get set to scan SSAs. 


. Segment length must be specified for 
every segment that has data transfer 
in 2 path call. 


. For insert calls, data transfer must 
be specified for every segment from 
the first one encountered to the 
object segment. 








PROCESS 


” 1. Get count of SSAs and first SSA entry 
for the path call. 


2. If data is not to be transferred for this 
segment, go to Step 7. 


3. If this is not an insert call, go to Step 5. 


4. Set data transferred indicator. 


V2 status code and go to Step 1, 
Figure 2-48.25. 


6. Update to next SSA entry and go to 
Step 2. 


7. If this is not an insert call, update to 
next SSA entry and go to Step 2. 


Vr 


P 8. If data was transferred on previous SSA 
entry, set up TI status code and go to 
Step 1, Figure 2-48.25. 


> 9. If more SSA entries are to be processed, 


go to Step 2. 


Extended Description 


5. If segment length is not specified, set up 


OUTPUT 


R9 


Step 1 
Figure 
2-48.18 


DLZEIPOO 


Routine Label 





Figure 2-48.18. Get EIP Common IOAREA (DLZEIPOO) 


INPUT 
Caller 


DLZSDIB 


Digiosiz 4 


Rg 
OLZSDIB 
ee 
— 3 
bene }}-——* 
RQ — 
= Zz 
TCASCcSA  |C————— 5 
as = 
DIBIO a E- 
— 3 
DIBCOUNT | C= > 


DLZEIPOO - DL/i Online EXEC Interface 


Extended Description 


. If the storage size (DIBPSIZE) calcu- 
lated for this call is less than or equal 
to the size of the existing EIP common 
IOAREA, use the existing size. 


. CICS FREEMAIN issued. If 
unsuccessful, CICS terminates the 
task. 


. CICS GETMAIN issued. If 
unsuccessful, CICS terminates the 
task. 


. Address of the area processed by 
GETMAIN is returned in the TCA. 








1. if EIP common IOAREA size is 


2. If storage was not acquired for the EIP 


3. Get address of EIP common IOAREA. 


4. Free the current EIP common IOAREA. 


5. Get current required EIP common 


PROCESS OUTPUT 


RO 


I 


sufficient for this call, go to Step 9. 


common IOAREA, go to Step 5. 
TCA 


TCASCSA 


(exe DFHSC TYPE = FREEMAIN TCA 


TCASCNB 
IOAREA size. 
DLZSDIB 
6. Set current size as the new EIP common ‘oisiosiz _ 
tOAREA size. [oysiosiz_] 
7. Acquire storage for the EI1P common 
IOAREA. DLZSDIB 
8. Save the address of the EIP common 
IOAREA. 
DLZSDIB 
9. Set address of the EIP common IOAREA 
in the DL/I parameter list. 
DLZspIB 
10. Update the DL/! call parameter count DIBCOUNT 
to include the IOAR EA. 
Step 1 
Figure 
2-48.19 
DLZEIPOO 
Extended Description Routine Label 
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Figure 2-48.19. Build EIP Common IOAREA (DLZEIPOO) (Part 1 of 2) 


INPUT 







DLZARGO 


ARGOFNCD 


DLZSDIB 


DIBCOUNT 


DLZSSA 


DLZSSA 


SSAIOA 


SSALIOA 


DLZSDIB 


DIBSFLAG — 


DLZARGO 


ARGOFNCD ioe 


‘DLZEIPOO - DL/! Online EXEC Interface 
Extended Description 


2. SSA count is set in register 5 and 
EIP common IOAREA address 
is set in register 6. 


. Bit DIBGPATH not on in byte 
DIBSFLAG. 








Cailer 


——— 2. Get count of SSAs and the EIP common 





PROCESS 





OUTPUT 


1. If this is a get call, go to Step 1, 
Figure 2-48.23. 


IOAREA address. 


R5 
aa 
R6 


3. If data is not to be transferred, go to 
Step 8. 


EIP Common Area 


4. Move the segment to the EIP common 
IOAREA. 


5. If all segments were moved to the EIP 
common IOAREA, go to Step 1, 
Figure 2-48.23. 


6. Update to the next SSA pointer. 


Figure 
2-48.23 


7. Go to Step 3. 


P 8. If the previous call was not a path 
call, go to Step 5. 


9. If this is not a replace call, go to 
Step 5. 


DLZEtPOO 


Routine Label Extended Description Routine Label 


MOVELOOP 
MOVECHK 














Figure 2-48.19. Build EIP Common IOAREA (DLZEIPOO) (Part 2 of 2): re 
INPUT PROCESS OUTPUT S 
DLZSSAX 4 
areas 10. If data was not transferred on previous 
path call, go to Step 5. = 
DLZSSAX 5 
11, Get length of data that was transferred 
SSAXLIOA | [-_—_______ > 
on previous cail. F 
DLZSSAX 
=a 12. if previous segment was a fixed length, 
go to Step 17. Ss 
DLZZAX pS 
= 
parece 13. If offset was not specified go to Step be 
16. 
DLZSSAX = 
——-—f 14. Calculate length of the destination 
arent and set length in the IOAREA. 
: — 
15. Go to Step 17. 
16. Set the length in the IOAREA. 
17. Update to next available area in EIP 
common IOAREA. 
18. Go to Step 5. 
DLZEIPOO — DL/I Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label 


12. Bit SSAVARL not on in byte 
SSAXFLAG. 


14. The length of a variable destination 
parent must be in the first two bytes 
of the segment that is after the 
concatenated key and intersection 
data. 


. For variable length segments the 
length must appear in the first two 
bytes of the segment. 





MOVEFIX 
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Figure 2-48.20. Schedule Call Processing (DLZEIPOO) 
INPUT PROCESS OUTPUT INPUT 


Caller 
se DLZARGO 





DLZARGO 


ARGOFNCD 


cee 1. If this is not a schedule call, go to Step 1, sieeons 


Figure 2-48.21. DLZSDIB 


DIBPATHP 


2. Set up parameter list for schedule call. 





DIBPARM1 DLZPATH 





Figure 2-48.21. TERM Call Processing (DLZEIPOO) 


PROCESS 


Figure 2-48.22. 


. If this is not a TERM call, go to Step 1, 


. If storage was not acquired for path 


header control blocks, go to Step 7. 


. If storage was not acquired for path SSA 


appendage, update to next path header 
control block and go to Step 2. 


. Free path SSA Appendage storage. 


(rasp DFHSC TYPE=FREEMAIN 


go to Step 3. 


. If another path header control block, 


. Free path header control block storage. 


(==) DFHSC TYPE=FREEMAIN 


PATHSSAP = 
Step 1, 
Figure 
2-48.23 
TCA 
TCASCSA — 
TCA 
TCASCSA —— 
DLZEIPOO - DL/I Online EXEC Interface DLZEIPO0 DLZEIPOO - DL/I Online EXEC Interface 
Faery F Extended Description Routine Label 
Extended Description Routine Label Extended Description Routine Label e i 


1. TERM function code is X‘06’. 


1, Scheduling function code is X’04’. CALLSCHD 
3. 


Ts 





CALLTERM 
FREELOOP 
CONTTERM 





. Set up parameter list for TERM call. 


Extended Description 


Step 1 
Figure 
2-48.23 


OUTPUT 


DLZSDIB 


[o1ecounT | 


DLZEIPOO 


Routine 


DIBPARM1 





Label 
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Figure 2-48.22. Checkpoint Call Processing (DLZEIPOO) Figure 2-48.23. DL/1 Program Request Handler Interface (DLZEIPOO) 
INPUT PROCESS OUTPUT INPUT PROCESS OUTPUT 
Calter Caller 
DLZSDIB 


DLZARGO 





— — — 1. If the previous call was not a get path 


call, go to Step 3. 


—_—— 7 1. If this is not a checkpoint call, set up 






AD status code and go to Step 5, Figure DLZSDIB 
DLZSDIB 2-48.25. indi 
2. Reset the path call indicators. 
“~~ JP 2. If scheduling call not issued, set up TH DLZPATH 
status code and go to Step 5, Figure 
2-48.25. DLZsDIB 
3. Set up parameter list for checkpoint call. 3. Set EIP return address for DL/I 4 
DLZSDIB 
5. Set register save area pointer. a 
(senecsv |} -——— ae 
318.93 . 6. Set language code for DL/! program C7 
Seba request handler. ed 
R1 
at ———%, 7. Set pointer for DL/I call parameter | 
Exit to 
DL/I 
DLZEIPOO - DL/! Online EXEC Interface DLZEIPOO DLZE!POO — DL/I Online EXEC Interface DLZEIPOO 
. Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label Extended Description Routine Label 


1. Checkpoint function code is CALLCHKP 
X08’. 





. Bit DIBGPATH not on in byte DLIPRHEX 
DIBSFLAG. 
. Bits DIBGPATH and PATHCALL 
turned off. 
. Return address at label DLIRETRN. DLIEXPRH 
. X‘02’ = non-PL/I-HLPI program 
X‘03’ = PL/I HLPI program 
\ 7. 
NOTE: Batch exit to DLZPRHBO 
MPS exit to DLZMPRH 
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"Figure 2-48-24. DL/I Return Processing (DLZEIPOO) 


INPUT PROCESS cae: OUTPUT 
Caller 
R13 
1. Restore CSA register. 
ees es 2. If call was not successful, go to Step 
Tearcin 1, Figure 2-48.25. 
DLZARGO 
nies oes 3. If this is a data base call, go to Step 
IARGOFNCD | ' 
[ancornco ] 1, Figure 2-48.25. 
DLZDIB 
4. Set valid status code. 
a 5. If this is not a scheduling call, go to 
sip 10 
: DLZSDIB 
6. Calculate the number of PCBs in 
oie 
TCA 
7. Calculate storage requirements for 
path header control blocks. 
TCA 
— aes 8. Issue GETMAIN for path header 
[Feascns control blocks storage. 
(am DFHSC TYPE=GETMAIN 
TCA DLZSD1B 
—— 9. Save address of path header control 
blocks area. 
DLZSDIB 
10. Restore caller's register savearea bit 
7 address. aren 
Step 6 
Figure 
248.4 
DLZEIPOO — DL/t Online EXEC Interface DLZEIPOO 
Extended Description Routine Label Extended Description Routine Label 








DLIRETRN 


PCBLOOP 


PCBLEND 
NOTSCHD 





INPUT 








Caller 


TCAFCTR ——~ | 1. 


TCADLTR eS 
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Figure 2-48.25. DL/I Psuedo ABEND Processing (DLZEIPOO) 
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Figure 2-48.26. DIB Initialization (DLZEIPOO) 
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Figure 2-48-27. Get Path Call Processing (Di.ZEIPOO) (Part 1 of 2) 
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Figure 2-48.27. Get Path Call Processing (DLZEIPOO) (Part 2 of 2) 
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Figure 2-48.28. Variable Length Segment Check (DLZEIPOO) Figure 2-48.29. Invalid DIB Processing (DLZEIPOO) 
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Figure 2-49. HLP! COBOL Language Interface (DLZLICBL) 
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Figure 2-50.1. HLP! PL/I (PLICALLB Interface) (OLZLIPLI) 
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Figure 2-50.2. HLPI PL/I (Language Interface) (DLZLIPLI) 
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Figure 2-51.1. FLD Storage Manager — Batch (FLD Storage Acquisition) (DLZSTRBO) 
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Figure 2-51.2. FLD Storage Manager — Batch (Psuedo ABEND Routine) (DLZSTRBO) 
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Figure 2-52. Online FLD Storage Manager (DLZSTROO) 
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